Metrics for Distance on a great circle

analyze1.5s (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: 1.0s

ival-mult: 355.0ms (34.7% of total)

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

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

ival-div: 87.0ms (8.5% of total)

ival-sub: 87.0ms (8.5% of total)

ival-sqrt: 84.0ms (8.2% of total)

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

ival-add: 44.0ms (4.3% of total)

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

const: 6.0ms (0.6% of total)

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

sample7.3s (14.9%)

Results

6.3s	7458×	1	valid
229.0ms	798×	0	valid

Precisions

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

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

ival-cos: 1.2s (21.6% of total)

ival-mult: 867.0ms (15.3% of total)

ival-sub: 434.0ms (7.7% of total)

backward-pass: 361.0ms (6.4% of total)

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

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

ival-pow: 249.0ms (4.4% of total)

ival-atan2: 224.0ms (4% of total)

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

const: 25.0ms (0.4% of total)

Bogosity

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

explain694.0ms (1.4%)

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
75	115	(2.9052008420917527e-91 2.7381335830510867e+86 3.034907032180005e-284 -2.452122468137227e+134 1.9438991716569222e-116)	0	-	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
62	125	(1.093675734164276e+90 -1.190565058814949e+57 -7.510395940237468e+295 1.0170549341529397e-296 2.2551976782355597e+163)	0	-	`(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))`
7	3	(3.440853238013274e-84 -3.3027314574940895e-261 1.716866181824828e-123 8.699846859459748e+80 1.628357689741756e-156)	1	(4.014363095568771e-92 5.968205299651228e-229 -1.0438845827861916e-254 -7.553186325271652e+261 4.206488805758119e-270)	`(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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	-	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 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	-	`(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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	14	(1.1745654887119398e-281 3.376497399385237e-273 -4.4234733933670856e+141 1.0671636004000009e-111 7.513939225130853e-156)	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

444.0ms	456×	1	valid
25.0ms	56×	0	valid

Compiler

Compiled 862 to 80 computations (90.7% saved)

Precisions

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

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

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

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

backward-pass: 33.0ms (9.9% of total)

ival-sqrt: 30.0ms (9% of total)

ival-sub: 18.0ms (5.4% of total)

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

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

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

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

const: 2.0ms (0.6% of total)

eval1.0ms (0%)

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

prune2.0ms (0%)

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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

▶

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

simplify172.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

localize604.0ms (1.2%)

Localize:

Found 8 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.0%	(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.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	79.4%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	74.8%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	74.8%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	99.4%	(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
✓	accuracy	99.0%	(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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	79.4%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	74.8%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

456.0ms	229×	1	valid
29.0ms	27×	0	valid

Compiler

Compiled 799 to 42 computations (94.7% saved)

Precisions

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

ival-sin: 93.0ms (26.4% of total)

ival-mult: 82.0ms (23.3% of total)

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

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

ival-sub: 24.0ms (6.8% of total)

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

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

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

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

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

const: 1.0ms (0.3% of total)

series165.0ms (0.3%)

Counts

14 → 600

Calls

Call 1

Inputs
#<alt (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))>
#<alt (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))>
#<alt (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))>
#<alt (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))>
#<alt (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))>
#<alt (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))>
#<alt (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))>
#<alt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))>
#<alt (sin (/ (- lambda1 lambda2) 2))>
#<alt (sin (/ (- phi1 phi2) 2))>
#<alt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))>
#<alt (pow (sin (/ (- phi1 phi2) 2)) 2)>
#<alt (sin (/ (- lambda1 lambda2) -2))>
#<alt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))>

Outputs
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 phi2))>
#<alt (+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* 1/2 phi1))>
#<alt (+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (pow (sin (* -1/2 phi2)) 2)>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)>
#<alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)>
#<alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)>
#<alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)>
#<alt (pow (sin (* 1/2 phi1)) 2)>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)>
#<alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)>
#<alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)>
#<alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)>
#<alt (sin (* 1/2 lambda2))>
#<alt (+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 lambda1))>
#<alt (+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>

Calls

150 calls:

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

rewrite558.0ms (1.1%)

Algorithm

1×	batch-egg-rewrite

Rules

5714×	`-lowering-.f32`
5714×	`-lowering-.f64`
3376×	`+-lowering-+.f64`
3376×	`+-lowering-+.f32`
3132×	`/-lowering-/.f32`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	41	424
1	223	406
2	1936	396
0	11141	396

Stop Event

1×	iter limit
1×	node limit

Counts

14 → 240

Calls

Call 1

Inputs
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
(* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
(* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))
(+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))
(sin (/ (- lambda1 lambda2) 2))
(sin (/ (- phi1 phi2) 2))
(- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
(pow (sin (/ (- phi1 phi2) 2)) 2)
(sin (/ (- lambda1 lambda2) -2))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))

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

simplify587.0ms (1.2%)

Algorithm

1×	egg-herbie

Rules

7588×	`-lowering-.f32`
7588×	`-lowering-.f64`
4044×	`+-lowering-+.f64`
4044×	`+-lowering-+.f32`
1976×	`fma-lowering-fma.f32`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	725	25816
1	2521	25199
0	9238	25199

Stop Event

1×	iter limit
1×	node limit

Counts

600 → 600

Calls

Call 1

Inputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(pow (sin (* -1/2 phi2)) 2)
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* 1/2 phi1)) 2)
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(sin (* 1/2 lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 lambda1))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (+ (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))

Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 phi1 (+.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) phi1)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi1 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi1 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))) phi1)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 phi2 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal -1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal -1/2 binary64))) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi2 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1/6 binary64))) (/.f64 (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi2) (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 lambda1 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (-.f64 (.f64 (cos.f64 phi2) (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) #s(literal -1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 phi2) (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 (.f64 (.f64 (.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal -1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 lambda2 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 phi1 (+.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) phi1)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi1 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi1 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))) phi1)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 phi2 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal -1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal -1/2 binary64))) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi2 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1/6 binary64))) (/.f64 (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi2) (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 lambda1 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (-.f64 (.f64 (cos.f64 phi2) (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) #s(literal -1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 phi2) (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 (.f64 (.f64 (.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal -1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 lambda2 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (.f64 phi1 phi1)) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (.f64 (+.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (.f64 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64))))) (.f64 phi1 phi1)) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi2 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/6 binary64) phi2)))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi2) (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 lambda2 (-.f64 (.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) lambda2)) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 1/6 binary64)))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 #s(literal 1/2 binary64) lambda1)))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 lambda1 (+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 #s(literal -1/8 binary64) lambda1)) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 lambda1 #s(literal -1/48 binary64))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 #s(literal -1/8 binary64) lambda2)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/48 binary64))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (+.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 #s(literal -1/8 binary64) phi1)) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (.f64 phi1 (+.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/8 binary64)) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 #s(literal -1/48 binary64))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi2)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 #s(literal 1/48 binary64))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (.f64 phi1 (-.f64 (.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (-.f64 #s(literal 0 binary64) phi1) (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64)))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (.f64 phi2 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (.f64 phi2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (.f64 phi2 (+.f64 (.f64 phi2 (-.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 0 binary64) phi2) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (.f64 lambda1 (-.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))))) (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 (.f64 (-.f64 #s(literal 0 binary64) lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64)))) (.f64 (cos.f64 phi2) (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda2 (+.f64 (.f64 (neg.f64 (.f64 lambda2 (cos.f64 phi1))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (-.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 1/6 binary64))))) (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(pow (sin (* -1/2 phi2)) 2)
(pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2))
(.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi1 phi1)) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64)))))) (.f64 phi1 phi1)) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 phi1)) 2)
(pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(-.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi2 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/6 binary64) phi2))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(sin (* 1/2 lambda2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 #s(literal -1/2 binary64))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 #s(literal -1/8 binary64) lambda1)))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 #s(literal 1/48 binary64))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 lambda1))
(sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 lambda2 (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 #s(literal -1/8 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 lambda2 #s(literal -1/48 binary64))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (-.f64 #s(literal 1 binary64) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (+.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))) (.f64 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (.f64 phi2 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (+.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/6 binary64) phi2))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) lambda1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi1))) (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal -1/12 binary64)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/12 binary64))))) (.f64 (cos.f64 phi1) lambda1)))))) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (.f64 lambda2 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 lambda2 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal -1/4 binary64)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))))) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (.f64 lambda2 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 lambda2 (+.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal -1/4 binary64)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal -1/12 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 1/12 binary64))))))))) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))

eval292.0ms (0.6%)

Compiler: Compiled 89384 to 3389 computations (96.2% saved)

prune316.0ms (0.6%)

Pruning

62 alts after pruning (62 fresh and 0 done)

	Pruned	Kept	Total
New	1174	62	1236
Fresh	0	0	0
Picked	2	0	2
Done	0	0	0
Total	1176	62	1238

Accuracy

66.0%

Counts

1238 → 62

Alt Table

Click to see full alt table

Status	Accuracy	Program
	58.2%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 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.5%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.5%	(.f64 (atan2.f64 (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)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	37.6%	(.f64 (atan2.f64 (/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.1%	(.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)))
	38.6%	(.f64 (atan2.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	56.8%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶	58.3%	(.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)))
	64.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (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)))
▶	64.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	45.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
▶	62.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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)))
	62.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.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)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	44.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (sin.f64 (.f64 #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)))
	57.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 (fma.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
	63.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 (fma.f64 (-.f64 (/.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	63.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 (-.f64 (pow.f64 (-.f64 (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
	63.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 #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 R #s(literal 2 binary64)))
	63.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 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (.f64 R #s(literal 2 binary64)))
	50.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 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	63.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 (-.f64 (/.f64 (.f64 (+.f64 (cos.f64 (.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)))
	50.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 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	62.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	40.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	42.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (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)))
	33.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (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)))
	41.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 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	36.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	45.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	49.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 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)))
	48.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 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)))
	46.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 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)))
	46.0%	(.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)))
	40.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	43.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	47.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (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.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (.f64 (+.f64 (cos.f64 (.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.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	44.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	44.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 1/6 binary64)))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.6%	(.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)))
▶	45.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	43.6%	(.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)))
	39.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi2 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	63.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 (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.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) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))
	46.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))
	42.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 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)))))))))
	45.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
	43.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)))))))))
	63.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
	63.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	48.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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)))))))))
	50.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	63.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/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)))))))))
	40.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 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
	47.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.2%	(.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 (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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Compiler

Compiled 9778 to 4998 computations (48.9% saved)

simplify259.0ms (0.5%)

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

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

Rules

3474×	`-lowering-.f32`
3474×	`-lowering-.f64`
1866×	`sum4-define`
1568×	`fnmadd-define`
1368×	`fma-lowering-fma.f32`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	112	2400
1	250	2335
2	664	2288
3	1791	2234
4	5682	2234
0	8231	2234

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

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

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

localize1.7s (3.5%)

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.2%	(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))
✓	accuracy	88.3%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	88.3%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	79.0%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	82.3%	(-.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)))))
✓	accuracy	79.1%	(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	83.8%	(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))
✓	accuracy	83.8%	(+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64))
✓	accuracy	82.3%	(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
✓	accuracy	79.1%	(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓	accuracy	99.2%	(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))
✓	accuracy	88.3%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))

Results

1.2s	213×	1	valid
68.0ms	41×	0	invalid
6.0ms	1×	2	valid
2.0ms	1×	0	valid

Compiler

Compiled 2558 to 113 computations (95.6% saved)

Precisions

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

ival-cos: 203.0ms (24.3% of total)

ival-mult: 160.0ms (19.2% of total)

ival-sin: 127.0ms (15.2% of total)

ival-div: 118.0ms (14.1% of total)

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

ival-sqrt: 56.0ms (6.7% of total)

ival-add: 27.0ms (3.2% of total)

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

ival-pow: 20.0ms (2.4% of total)

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

const: 2.0ms (0.2% of total)

series443.0ms (0.9%)

Counts

30 → 1284

Calls

Call 1

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

Outputs
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (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) (* (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 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))>
#<alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))>
#<alt (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))>
#<alt (+ (* phi1 (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))>
#<alt (+ (* phi1 (+ (* 1/2 (* (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* phi1 (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (- (+ (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -2/3 (sin (neg phi2)))) (* 1/2 (/ (* (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))>
#<alt (+ (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))>
#<alt (+ (* phi2 (+ (* 1/2 (* (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (+ (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* 2/3 (sin phi1))) (* 1/2 (/ (* (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (+ (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))) (* (* lambda1 (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))>
#<alt (+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))>
#<alt (+ (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* -1/3 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (/ (* (sin (neg lambda2)) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (+ (* -1 (* (* lambda2 (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))>
#<alt (+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))>
#<alt (+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* 1/3 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* -1 (/ (* (sin lambda1) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))>
#<alt (+ (* 1/8 (* phi1 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))) (* phi1 (+ (* 1/8 (* phi1 (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/8 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))) (* phi1 (+ (* 1/8 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (* phi1 (+ (* 1/8 (* phi1 (+ (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -2/3 (sin (neg phi2)))))) (* 1/8 (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (+ (* 1/8 (* phi2 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* 1/8 (* phi2 (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))))) (* 1/8 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))))))>
#<alt (+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* 1/8 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (* phi2 (+ (* 1/8 (* phi2 (+ (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* 2/3 (sin phi1))))) (* 1/8 (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1)))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (+ (sin (* 1/2 (- lambda1 lambda2))) (* -1/4 (/ (* phi1 phi2) (sin (* 1/2 (- lambda1 lambda2))))))>
#<alt (+ (sin (* 1/2 (- lambda1 lambda2))) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (* phi2 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ (sin (* 1/2 (- lambda1 lambda2))) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 (- lambda1 lambda2))))) (* phi2 (+ (* 1/2 (/ (* phi2 (- (+ (* 1/48 phi1) (* 1/16 phi1)) (* -1/4 (/ (* phi1 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* 1/2 (* (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda1 (+ (* 1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))) (* 1/2 (* (* lambda1 (- (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (* 1/2 (/ (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* -1/2 (* (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda2 (+ (* -1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda2 (+ (* -1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/8 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/8 (* (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/16 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 5))))))))))>
#<alt (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))>
#<alt (* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))>
#<alt (* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))>
#<alt (* -1 (* (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sqrt -1) 2)))>
#<alt (* -1 (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))>
#<alt (* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2))))))>
#<alt (* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3) (pow (sqrt -1) 4)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))))>
#<alt (pow (sin (* 1/2 (- lambda1 lambda2))) 2)>
#<alt (+ (* -1/2 (* phi1 phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))>
#<alt (+ (* phi2 (+ (* -1/2 phi1) (* phi2 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))>
#<alt (+ (* phi2 (+ (* -1/2 phi1) (* phi2 (+ 1/4 (+ (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* phi2 (+ (* 1/48 phi1) (* 1/16 phi1)))))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))>
#<alt (* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))>
#<alt (* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))>
#<alt (* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))>
#<alt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))>
#<alt (* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))>
#<alt (* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))>
#<alt (* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (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) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) 2))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 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))) 2))))))) (* 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))) 2)))))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (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) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* 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)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* 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))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* 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))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (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) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (sin (* 1/2 lambda2))>
#<alt (+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 lambda1))>
#<alt (+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 phi2))>
#<alt (+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* 1/2 phi1))>
#<alt (+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* -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))>
#<alt (cos (neg lambda2))>
#<alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))>
#<alt (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))>
#<alt (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos lambda1)>
#<alt (+ (cos lambda1) (* lambda2 (sin lambda1)))>
#<alt (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))>
#<alt (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (- 1/2 (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (* phi1 (- (* phi1 (- (* -1/12 (* phi1 (sin (neg phi2)))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- 1/2 (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* phi2 (- (* phi2 (- (* 1/12 (* phi2 (sin phi1))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (cos (neg lambda2)) 1)>
#<alt (- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)>
#<alt (- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)>
#<alt (- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos lambda1) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- 1 (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos lambda1))>
#<alt (- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))>
#<alt (- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))>
#<alt (- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (neg phi2)))>
#<alt (- (+ 1 (* phi1 (sin (neg phi2)))) (cos (neg phi2)))>
#<alt (- (+ 1 (* phi1 (+ (sin (neg phi2)) (* 1/2 (* phi1 (cos (neg phi2))))))) (cos (neg phi2)))>
#<alt (- (+ 1 (* phi1 (+ (sin (neg phi2)) (* phi1 (- (* -1/6 (* phi1 (sin (neg phi2)))) (* -1/2 (cos (neg phi2)))))))) (cos (neg phi2)))>
#<alt (- 1 (cos (- phi1 phi2)))>
#<alt (- 1 (cos (- phi1 phi2)))>
#<alt (- 1 (cos (- phi1 phi2)))>
#<alt (- 1 (cos (- phi1 phi2)))>
#<alt (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))>
#<alt (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))>
#<alt (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))>
#<alt (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))>
#<alt (- 1 (cos phi1))>
#<alt (- (+ 1 (* -1 (* phi2 (sin phi1)))) (cos phi1))>
#<alt (- (+ 1 (* phi2 (+ (* -1 (sin phi1)) (* 1/2 (* phi2 (cos phi1)))))) (cos phi1))>
#<alt (- (+ 1 (* phi2 (+ (* -1 (sin phi1)) (* phi2 (- (* 1/6 (* phi2 (sin phi1))) (* -1/2 (cos phi1))))))) (cos phi1))>
#<alt (- 1 (cos (- phi1 phi2)))>
#<alt (- 1 (cos (- phi1 phi2)))>
#<alt (- 1 (cos (- phi1 phi2)))>
#<alt (- 1 (cos (- phi1 phi2)))>
#<alt (- 1 (cos (+ phi1 (* -1 phi2))))>
#<alt (- 1 (cos (+ phi1 (* -1 phi2))))>
#<alt (- 1 (cos (+ phi1 (* -1 phi2))))>
#<alt (- 1 (cos (+ phi1 (* -1 phi2))))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>

Calls

321 calls:

Time	Variable		Point	Expression
67.0ms	phi1	@	0	(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))
21.0ms	phi1	@	inf	(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
15.0ms	phi1	@	inf	(/ (+ (* (- (cos (/ 0 (/ 2 (- phi1 phi2)))) (cos (* 2 (/ (- phi1 phi2) 2)))) 4) (* 2 (* (- 1 (cos (* (- lambda1 lambda2) 1))) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) 8)
15.0ms	phi1	@	0	(sqrt (/ (+ (* (- (cos (/ 0 (/ 2 (- phi1 phi2)))) (cos (* 2 (/ (- phi1 phi2) 2)))) 4) (* 2 (* (- 1 (cos (* (- lambda1 lambda2) 1))) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) 8))
13.0ms	R	@	0	(* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (- (* (sin (/ lambda1 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ lambda2 2)))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))

rewrite399.0ms (0.8%)

Algorithm

1×	batch-egg-rewrite

Rules

3216×	`-lowering-.f32`
3216×	`-lowering-.f64`
2156×	`/-lowering-/.f32`
2156×	`/-lowering-/.f64`
2126×	`fma-lowering-fma.f32`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	112	1075
1	633	859
2	6414	859
0	8855	859

Stop Event

1×	iter limit
1×	node limit

Counts

30 → 457

Calls

Call 1

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

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

simplify1.0s (2%)

Algorithm

1×	egg-herbie

Rules

5380×	`-lowering-.f32`
5380×	`-lowering-.f64`
3970×	`+-lowering-+.f64`
3970×	`+-lowering-+.f32`
1956×	`sum3-define`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	1998	63678
1	5889	62390
0	8098	62390

Stop Event

1×	iter limit
1×	node limit

Counts

1284 → 1284

Calls

Call 1

Inputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (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) (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (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) (* (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 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))
(+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))
(+ (* phi1 (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))
(+ (* phi1 (+ (* 1/2 (* (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* phi1 (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (- (+ (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -2/3 (sin (neg phi2)))) (* 1/2 (/ (* (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+ (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+ (* phi2 (+ (* 1/2 (* (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (+ (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* 2/3 (sin phi1))) (* 1/2 (/ (* (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(+ (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))) (* (* lambda1 (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))
(+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* -1/3 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (/ (* (sin (neg lambda2)) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(+ (* -1 (* (* lambda2 (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* 1/3 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* -1 (/ (* (sin lambda1) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))
(+ (* 1/8 (* phi1 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))) (* phi1 (+ (* 1/8 (* phi1 (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/8 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))) (* phi1 (+ (* 1/8 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (* phi1 (+ (* 1/8 (* phi1 (+ (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -2/3 (sin (neg phi2)))))) (* 1/8 (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(+ (* 1/8 (* phi2 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* 1/8 (* phi2 (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))))) (* 1/8 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))))))
(+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* 1/8 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (* phi2 (+ (* 1/8 (* phi2 (+ (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* 2/3 (sin phi1))))) (* 1/8 (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1)))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))
(+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(sin (* 1/2 (- lambda1 lambda2)))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* -1/4 (/ (* phi1 phi2) (sin (* 1/2 (- lambda1 lambda2))))))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (* phi2 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 (- lambda1 lambda2))))) (* phi2 (+ (* 1/2 (/ (* phi2 (- (+ (* 1/48 phi1) (* 1/16 phi1)) (* -1/4 (/ (* phi1 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* 1/2 (* (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda1 (+ (* 1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))) (* 1/2 (* (* lambda1 (- (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (* 1/2 (/ (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* -1/2 (* (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda2 (+ (* -1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda2 (+ (* -1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/8 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/8 (* (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/16 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 5))))))))))
(sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(* -1 (* (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sqrt -1) 2)))
(* -1 (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))
(* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2))))))
(* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3) (pow (sqrt -1) 4)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))))
(pow (sin (* 1/2 (- lambda1 lambda2))) 2)
(+ (* -1/2 (* phi1 phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+ (* phi2 (+ (* -1/2 phi1) (* phi2 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+ (* phi2 (+ (* -1/2 phi1) (* phi2 (+ 1/4 (+ (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* phi2 (+ (* 1/48 phi1) (* 1/16 phi1)))))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* -1 (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))
(* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))
(* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))
(* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))
(* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))
(* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))
(* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))
(* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (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) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) 2))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 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))) 2))))))) (* 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))) 2)))))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(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) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* 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)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* 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))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* 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))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (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) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* 1/2 lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 lambda1))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (+ (* -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))
(cos (neg lambda2))
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(- 1/2 (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* phi1 (- (* phi1 (- (* -1/12 (* phi1 (sin (neg phi2)))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos phi1)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* phi2 (- (* phi2 (- (* 1/12 (* phi2 (sin phi1))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (cos (neg lambda2)) 1)
(- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)
(- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)
(- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos lambda1) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)
(- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- 1 (cos (neg lambda2)))
(- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (neg phi2)))
(- (+ 1 (* phi1 (sin (neg phi2)))) (cos (neg phi2)))
(- (+ 1 (* phi1 (+ (sin (neg phi2)) (* 1/2 (* phi1 (cos (neg phi2))))))) (cos (neg phi2)))
(- (+ 1 (* phi1 (+ (sin (neg phi2)) (* phi1 (- (* -1/6 (* phi1 (sin (neg phi2)))) (* -1/2 (cos (neg phi2)))))))) (cos (neg phi2)))
(- 1 (cos (- phi1 phi2)))
(- 1 (cos (- phi1 phi2)))
(- 1 (cos (- phi1 phi2)))
(- 1 (cos (- phi1 phi2)))
(- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))
(- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))
(- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))
(- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))
(- 1 (cos phi1))
(- (+ 1 (* -1 (* phi2 (sin phi1)))) (cos phi1))
(- (+ 1 (* phi2 (+ (* -1 (sin phi1)) (* 1/2 (* phi2 (cos phi1)))))) (cos phi1))
(- (+ 1 (* phi2 (+ (* -1 (sin phi1)) (* phi2 (- (* 1/6 (* phi2 (sin phi1))) (* -1/2 (cos phi1))))))) (cos phi1))
(- 1 (cos (- phi1 phi2)))
(- 1 (cos (- phi1 phi2)))
(- 1 (cos (- phi1 phi2)))
(- 1 (cos (- phi1 phi2)))
(- 1 (cos (+ phi1 (* -1 phi2))))
(- 1 (cos (+ phi1 (* -1 phi2))))
(- 1 (cos (+ phi1 (* -1 phi2))))
(- 1 (cos (+ phi1 (* -1 phi2))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))

Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #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) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #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) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #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) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #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) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(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) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(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) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(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) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(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) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.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) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.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) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.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) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.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) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.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) (* (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.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) (* (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.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) (* (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.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) (* (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 phi1 (.f64 (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 phi2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #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 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #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 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #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 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(-.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (+.f64 (.f64 (.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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (+.f64 (.f64 (.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(-.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))))) (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.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 #s(literal -1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (sin.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (.f64 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 (-.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (-.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (.f64 (-.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 (+.f64 (.f64 phi1 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 (+.f64 (.f64 phi2 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) lambda1) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/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 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal -1/12 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.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))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 (.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 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))))
(+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 phi1 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))))
(+ (* phi1 (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (.f64 phi1 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))))) (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))))))
(+ (* phi1 (+ (* 1/2 (* (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* phi1 (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (- (+ (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -2/3 (sin (neg phi2)))) (* 1/2 (/ (* (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (.f64 phi1 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 #s(literal -1/6 binary64) (-.f64 (sin.f64 phi2) (sin.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -2/3 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (+.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))))) (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 phi2 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))))))
(+ (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (.f64 phi2 (sqrt.f64 #s(literal 1/8 binary64))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))))))))
(+ (* phi2 (+ (* 1/2 (* (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (+ (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* 2/3 (sin phi1))) (* 1/2 (/ (* (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (.f64 phi2 (sqrt.f64 #s(literal 1/8 binary64))) (-.f64 (+.f64 (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2/3 binary64) (sin.f64 phi1))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (.f64 (-.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))
(+ (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))) (* (* lambda1 (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (.f64 (.f64 lambda1 (.f64 (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))))
(+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 lambda1 (sqrt.f64 #s(literal 1/8 binary64))) (-.f64 (.f64 (cos.f64 lambda2) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (/.f64 (.f64 (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))))) (.f64 (.f64 (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* -1/3 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (/ (* (sin (neg lambda2)) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (.f64 lambda1 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (.f64 #s(literal -1/3 binary64) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (sin.f64 lambda2) (/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 (.f64 (cos.f64 lambda2) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (/.f64 (.f64 (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (.f64 (-.f64 (.f64 (cos.f64 lambda2) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (/.f64 (.f64 (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))
(+ (* -1 (* (* lambda2 (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(-.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))) (.f64 (.f64 lambda2 (.f64 (.f64 (sin.f64 lambda1) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))))
(+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 lambda2 (sqrt.f64 #s(literal 1/8 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))))) (.f64 (.f64 (.f64 (sin.f64 lambda1) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))))))
(+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* 1/3 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* -1 (/ (* (sin lambda1) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (.f64 lambda2 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (/.f64 (.f64 (.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))) (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (-.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))))))) (.f64 (.f64 (.f64 (sin.f64 lambda1) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))
(+ (* 1/8 (* phi1 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))) (* phi1 (+ (* 1/8 (* phi1 (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/8 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))) (.f64 phi1 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi1 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))) (* phi1 (+ (* 1/8 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (* phi1 (+ (* 1/8 (* phi1 (+ (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -2/3 (sin (neg phi2)))))) (* 1/8 (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (.f64 phi1 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 #s(literal -1/6 binary64) (-.f64 (sin.f64 phi2) (sin.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -2/3 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(+ (* 1/8 (* phi2 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* 1/8 (* phi2 (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))))) (* 1/8 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))) (.f64 phi2 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2 binary64) (cos.f64 phi1)))) (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (*.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
(+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* 1/8 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (* phi2 (+ (* 1/8 (* phi2 (+ (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* 2/3 (sin phi1))))) (* 1/8 (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1)))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 phi2 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2/3 binary64) (sin.f64 phi1)))) (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1)))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (.f64 (.f64 #s(literal 1/4 binary64) lambda1) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 lambda1 (cos.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/24 binary64) lambda1) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (*.f64 #s(literal 1/8 binary64) (cos.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))
(+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))) (.f64 #s(literal -1/4 binary64) (.f64 (*.f64 lambda2 (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 lambda2 (cos.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (.f64 lambda2 (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (*.f64 #s(literal 1/8 binary64) (cos.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* -1/4 (/ (* phi1 phi2) (sin (* 1/2 (- lambda1 lambda2))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi1 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (* phi2 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 (+.f64 #s(literal 1/4 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 (- lambda1 lambda2))))) (* phi2 (+ (* 1/2 (/ (* phi2 (- (+ (* 1/48 phi1) (* 1/16 phi1)) (* -1/4 (/ (* phi1 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (.f64 phi2 (+.f64 (.f64 phi1 #s(literal 1/12 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (+.f64 #s(literal 1/4 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/4 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* 1/2 (* (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda1 (+ (* 1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))) (* 1/2 (* (* lambda1 (- (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (* 1/2 (/ (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))))) (.f64 lambda1 (.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* -1/2 (* (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda2 (+ (* -1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda2 (+ (* -1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))))) (.f64 lambda2 (.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/8 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 3 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/8 (* (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/16 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 5))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 3 binary64))))) (.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 5 binary64))))))))))
(sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))
(sqrt.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(.f64 phi1 (+.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(.f64 phi1 (+.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) phi1)) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64))))) (pow.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64)))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 phi1 (+.f64 (+.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) phi1)) (.f64 #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64))))) (pow.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/16 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 7 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 5 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 5 binary64))))) (pow.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 3 binary64)))))))
(* -1 (* (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sqrt -1) 2)))
(-.f64 #s(literal 0 binary64) (.f64 (sqrt.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))) #s(literal -1 binary64)))
(* -1 (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))
(.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) phi1)) #s(literal -1 binary64))))
(* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2))))))
(.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) phi1)) #s(literal -1 binary64))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64))))) (pow.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal -1 binary64)))))
(* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3) (pow (sqrt -1) 4)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))))
(.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64))))) (pow.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal -1 binary64))) (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) phi1)) #s(literal -1 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 7 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 5 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 5 binary64))))) (/.f64 (pow.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 4 binary64))))))))
(pow (sin (* 1/2 (- lambda1 lambda2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(+ (* -1/2 (* phi1 phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))
(+ (* phi2 (+ (* -1/2 phi1) (* phi2 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 phi2 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))
(+ (* phi2 (+ (* -1/2 phi1) (* phi2 (+ 1/4 (+ (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* phi2 (+ (* 1/48 phi1) (* 1/16 phi1)))))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 phi2 (+.f64 #s(literal 1/4 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 phi2 (.f64 phi1 #s(literal 1/12 binary64)))))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 lambda1 (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (.f64 (.f64 lambda1 (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64))))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* -1 (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(-.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (.f64 (.f64 lambda2 (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))
(+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (.f64 lambda2 (-.f64 (.f64 (.f64 lambda2 (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))
(+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 (.f64 lambda2 (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))
(.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))
(.f64 phi1 (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (+.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi1) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) phi1))))
(* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))
(.f64 phi1 (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (+.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi1) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) phi1))))
(* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))
(.f64 phi1 (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (+.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi1) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) phi1))))
(* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))
(.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))
(.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (/.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) phi1)))
(* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))
(.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (/.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) phi1)))
(* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))
(.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (/.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) phi1)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))) (.f64 phi1 (.f64 (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))) (.f64 phi2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))
(+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (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)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))))
(+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) 2))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (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)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #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)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))))))
(+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 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))) 2))))))) (* 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))) 2)))))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (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)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (.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)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #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)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))) (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal 1/12 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #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)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #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 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #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 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #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 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 phi1 (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 phi1 (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (+.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 phi1 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (+.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* 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)))))))) (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 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* 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))))))))) (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 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* 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))))))))) (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 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal 1/12 binary64))))))))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 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)))))
(+ (* 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 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 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)))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(sin (* 1/2 lambda2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 lambda1))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal -1/48 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (.f64 #s(literal -1/48 binary64) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (+ (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/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 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (+.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 phi1 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (+.f64 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 phi2 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (pow.f64 (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))) (pow.f64 (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/16 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 1/12 binary64))))))))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal 1/12 binary64))))))))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(cos (neg lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (sin.f64 lambda2))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sin.f64 lambda2))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (sin.f64 lambda1))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1))))) (sin.f64 lambda1))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(- 1/2 (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))
(- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 (cos.f64 phi2))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (* phi1 (- (* phi1 (- (* -1/12 (* phi1 (sin (neg phi2)))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))
(- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))
(- (+ 1/2 (* phi2 (- (* phi2 (- (* 1/12 (* phi2 (sin phi1))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (cos (neg lambda2)) 1)
(+.f64 (cos.f64 lambda2) #s(literal -1 binary64))
(- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)
(+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64))
(- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)
(+.f64 (cos.f64 lambda2) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (sin.f64 lambda2))) #s(literal -1 binary64)))
(- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)
(+.f64 (cos.f64 lambda2) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sin.f64 lambda2))) #s(literal -1 binary64)))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos lambda1) 1)
(+.f64 (cos.f64 lambda1) #s(literal -1 binary64))
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))
(- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (sin.f64 lambda1))) #s(literal -1 binary64)))
(- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)
(+.f64 (+.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)))) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- 1 (cos (neg lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (cos.f64 lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (sin.f64 lambda2))) (cos.f64 lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda1) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)))) (sin.f64 lambda2))) (cos.f64 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos lambda1))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (sin.f64 lambda1))) (cos.f64 lambda1)))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (sin.f64 lambda1))) (cos.f64 lambda1)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (neg phi2)))
(-.f64 #s(literal 1 binary64) (cos.f64 phi2))
(- (+ 1 (* phi1 (sin (neg phi2)))) (cos (neg phi2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (cos.f64 phi2)))
(- (+ 1 (* phi1 (+ (sin (neg phi2)) (* 1/2 (* phi1 (cos (neg phi2))))))) (cos (neg phi2)))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) (cos.f64 phi2))
(- (+ 1 (* phi1 (+ (sin (neg phi2)) (* phi1 (- (* -1/6 (* phi1 (sin (neg phi2)))) (* -1/2 (cos (neg phi2)))))))) (cos (neg phi2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) (sin.f64 phi2))) (cos.f64 phi2)))
(- 1 (cos (- phi1 phi2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (- phi1 phi2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (- phi1 phi2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (- phi1 phi2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos phi1))
(-.f64 #s(literal 1 binary64) (cos.f64 phi1))
(- (+ 1 (* -1 (* phi2 (sin phi1)))) (cos phi1))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 phi2 (sin.f64 phi1))) (cos.f64 phi1))
(- (+ 1 (* phi2 (+ (* -1 (sin phi1)) (* 1/2 (* phi2 (cos phi1)))))) (cos phi1))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (*.f64 phi2 (cos.f64 phi1))) (sin.f64 phi1))) (cos.f64 phi1)))
(- (+ 1 (* phi2 (+ (* -1 (sin phi1)) (* phi2 (- (* 1/6 (* phi2 (sin phi1))) (* -1/2 (cos phi1))))))) (cos phi1))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 phi1))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (sin.f64 phi1)))) (cos.f64 phi1))
(- 1 (cos (- phi1 phi2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (- phi1 phi2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (- phi1 phi2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (- phi1 phi2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (+ phi1 (* -1 phi2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (+ phi1 (* -1 phi2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (+ phi1 (* -1 phi2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(- 1 (cos (+ phi1 (* -1 phi2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))

eval876.0ms (1.8%)

Compiler: Compiled 231509 to 7416 computations (96.8% saved)

prune1.0s (2.1%)

Pruning

147 alts after pruning (147 fresh and 0 done)

	Pruned	Kept	Total
New	2624	129	2753
Fresh	39	18	57
Picked	5	0	5
Done	0	0	0
Total	2668	147	2815

Accuracy

79.2%

Counts

2815 → 147

Alt Table

Click to see full alt table

Status	Accuracy	Program
	58.2%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 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.5%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.5%	(.f64 (atan2.f64 (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)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	33.4%	(.f64 (atan2.f64 (+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (.f64 phi2 (sqrt.f64 #s(literal 1/8 binary64))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	38.6%	(.f64 (atan2.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	33.5%	(.f64 (atan2.f64 (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.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 #s(literal -1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	14.9%	(.f64 (atan2.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi1 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.1%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 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)))
	39.7%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.7%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	28.0%	(.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.7%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 #s(literal 8 binary64) (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.1%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 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)))
	58.2%	(.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 (-.f64 #s(literal 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 (+.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)))
	39.5%	(.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) (-.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (+.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)))
	58.9%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (+.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)))
	58.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 (fma.f64 (-.f64 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))))) (.f64 R #s(literal 2 binary64)))
	46.0%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.9%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.1%	(.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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.9%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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)))
▶	58.1%	(.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 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	59.0%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	30.6%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.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 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	36.3%	(.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 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	40.8%	(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.6%	(.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 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	43.6%	(.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 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.2%	(.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 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.0%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	41.3%	(.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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.3%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.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 (-.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (.f64 R #s(literal 2 binary64)))
	42.5%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi2)) #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)))
▶	37.2%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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)))
	57.4%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	43.5%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (/.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.6%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (+.f64 (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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (.f64 R #s(literal 2 binary64)))
	62.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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)))
	58.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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)))
	59.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	59.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	64.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (+.f64 (cos.f64 (-.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	64.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
	40.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 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	51.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	63.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 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
▶	77.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 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))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	77.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	72.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	77.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	36.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	46.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	51.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	49.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	47.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	47.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	48.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	59.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	63.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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	63.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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	43.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	49.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	61.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	62.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	49.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 #s(literal -1/2 binary64) phi2)) #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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 #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)))
	48.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	49.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	46.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.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 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	36.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	45.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	46.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 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)))
	24.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (/.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 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.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)))
	40.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.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 (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)))
	39.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 (cos.f64 lambda2) (.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	58.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 (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)))
	39.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	40.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 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (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.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 #s(literal 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.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (/.f64 (+.f64 #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 (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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2)) (neg.f64 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	37.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (-.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	58.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	38.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (+.f64 (cos.f64 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)))
	43.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 (cos.f64 lambda2) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	44.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(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)))
	57.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 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)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	59.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 -2 binary64) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	36.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	38.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 #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)))
	36.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	64.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	45.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	42.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	46.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	43.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	42.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	46.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	33.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	48.6%	(.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)))
	42.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))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	21.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))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	45.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	45.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	29.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	40.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	35.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	33.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	44.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	39.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	41.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.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 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
	42.4%	(.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)))
	43.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	5.8%	(.f64 (atan2.f64 (sqrt.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.9%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.6%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 phi2) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	39.8%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
▶	15.5%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.6%	(.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)))
	63.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 (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.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) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))
	46.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))
	63.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
	63.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/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)))))))))
	47.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.2%	(.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 (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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 25252 to 13446 computations (46.8% saved)

simplify289.0ms (0.6%)

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

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

Rules

2978×	`+-lowering-+.f64`
2978×	`+-lowering-+.f32`
2314×	`-lowering-.f32`
2314×	`-lowering-.f64`
1900×	`sum4-define`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	103	2555
1	247	2531
2	637	2494
3	2124	2440
0	8507	2440

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

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

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

localize1.9s (3.9%)

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	accuracy	78.4%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	78.4%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	78.3%	(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓	accuracy	72.2%	(+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
✓	accuracy	81.1%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	78.4%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	78.4%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	78.3%	(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓	accuracy	81.1%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	78.4%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	78.4%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	78.3%	(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓	accuracy	81.1%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	78.4%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓	accuracy	78.4%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	78.4%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	99.5%	(pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))
✓	accuracy	99.2%	(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64))))
✓	accuracy	78.4%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	78.4%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))

Results

1.2s	215×	1	valid
192.0ms	38×	1	invalid
13.0ms	2×	2	valid
2.0ms	1×	0	invalid

Compiler

Compiled 2769 to 103 computations (96.3% saved)

Precisions

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

ival-cos: 255.0ms (28.4% of total)

ival-mult: 136.0ms (15.1% of total)

ival-sin: 136.0ms (15.1% of total)

backward-pass: 82.0ms (9.1% of total)

ival-sub: 54.0ms (6% of total)

ival-div: 54.0ms (6% of total)

ival-pow: 53.0ms (5.9% of total)

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

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

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

compiled-spec: 20.0ms (2.2% of total)

ival-log: 9.0ms (1% of total)

ival-exp: 5.0ms (0.6% of total)

const: 2.0ms (0.2% of total)

series246.0ms (0.5%)

Counts

26 → 1116

Calls

Call 1

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

Outputs
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (+ (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* 1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (* -1/2 lambda2)>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (* 1/2 lambda1)>
#<alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))>
#<alt (* 1/2 lambda1)>
#<alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))>
#<alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))>
#<alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))>
#<alt (* 1/2 lambda1)>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (* -1/2 lambda2)>
#<alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))>
#<alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))>
#<alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))>
#<alt (* -1/2 lambda2)>
#<alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (* (* (sqrt 1/8) (sqrt 2)) (sqrt (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))))>
#<alt (+ (* -1 (* (/ (* phi1 (* (sqrt 1/8) (+ (sin phi2) (sin (neg phi2))))) (sqrt 2)) (sqrt (/ (- 1 (cos (- lambda1 lambda2))) (+ (cos phi2) (cos (neg phi2))))))) (* (* (sqrt 1/8) (sqrt 2)) (sqrt (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ (* phi1 (+ (* -1 (* (/ (* (sqrt 1/8) (+ (sin phi2) (sin (neg phi2)))) (sqrt 2)) (sqrt (/ (- 1 (cos (- lambda1 lambda2))) (+ (cos phi2) (cos (neg phi2))))))) (* 1/2 (* (/ (* phi1 (* (sqrt 1/8) (- (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (/ (* (pow (+ (sin phi2) (sin (neg phi2))) 2) (- 1 (cos (- lambda1 lambda2)))) (* (pow (sqrt 2) 2) (+ (cos phi2) (cos (neg phi2)))))))) (sqrt 2)) (sqrt (/ 1 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))))) (* (* (sqrt 1/8) (sqrt 2)) (sqrt (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ (* phi1 (+ (* -1 (* (/ (* (sqrt 1/8) (+ (sin phi2) (sin (neg phi2)))) (sqrt 2)) (sqrt (/ (- 1 (cos (- lambda1 lambda2))) (+ (cos phi2) (cos (neg phi2))))))) (* phi1 (+ (* 1/2 (* (/ (* phi1 (* (sqrt 1/8) (- (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -1 (/ (* (+ (sin phi2) (sin (neg phi2))) (- (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (/ (* (pow (+ (sin phi2) (sin (neg phi2))) 2) (- 1 (cos (- lambda1 lambda2)))) (* (pow (sqrt 2) 2) (+ (cos phi2) (cos (neg phi2))))))) (* (pow (sqrt 2) 2) (+ (cos phi2) (cos (neg phi2))))))))) (sqrt 2)) (sqrt (/ 1 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/2 (* (/ (* (sqrt 1/8) (- (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (/ (* (pow (+ (sin phi2) (sin (neg phi2))) 2) (- 1 (cos (- lambda1 lambda2)))) (* (pow (sqrt 2) 2) (+ (cos phi2) (cos (neg phi2))))))) (sqrt 2)) (sqrt (/ 1 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))))))) (* (* (sqrt 1/8) (sqrt 2)) (sqrt (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (+ (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))) (* (* lambda1 (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))))>
#<alt (+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))>
#<alt (+ (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* -1/3 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (/ (* (sin (neg lambda2)) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))))>
#<alt (+ (* -1 (* (* lambda2 (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))>
#<alt (+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))>
#<alt (+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* 1/3 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* -1 (/ (* (sin lambda1) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (+ (* -1 (* (* phi2 (* (sqrt 1/8) (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))>
#<alt (+ (* phi2 (+ (* -1 (* (* (sqrt 1/8) (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (/ (* (pow (+ (sin phi1) (* -1 (sin phi1))) 2) (pow (- 1 (cos (- lambda1 lambda2))) 2)) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))>
#<alt (+ (* phi2 (+ (* -1 (* (* (sqrt 1/8) (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* -1 (/ (* (+ (sin phi1) (* -1 (sin phi1))) (* (- 1 (cos (- lambda1 lambda2))) (- (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (/ (* (pow (+ (sin phi1) (* -1 (sin phi1))) 2) (pow (- 1 (cos (- lambda1 lambda2))) 2)) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (/ (* (pow (+ (sin phi1) (* -1 (sin phi1))) 2) (pow (- 1 (cos (- lambda1 lambda2))) 2)) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (* 1/4 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))>
#<alt (+ (* -1/4 (* phi1 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))))>
#<alt (+ (* 1/4 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/4 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 1/8 (* phi1 (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))))))))>
#<alt (+ (* 1/4 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/4 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/4 (* phi1 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/8 (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))) (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))>
#<alt (+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (+ (* -1/4 (* phi2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* -1/4 (* phi2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* -1/4 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* -1/4 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/4 (* phi2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* 1/12 (sin phi1)) (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))>
#<alt (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))>
#<alt (+ (* phi1 (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))>
#<alt (+ (* phi1 (+ (* 1/2 (* (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* phi1 (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (- (+ (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -2/3 (sin (neg phi2)))) (* 1/2 (/ (* (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))>
#<alt (+ (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))>
#<alt (+ (* phi2 (+ (* 1/2 (* (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (+ (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* 2/3 (sin phi1))) (* 1/2 (/ (* (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (+ (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))) (* (* lambda1 (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))>
#<alt (+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))>
#<alt (+ (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* -1/3 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (/ (* (sin (neg lambda2)) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (+ (* -1 (* (* lambda2 (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))>
#<alt (+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))>
#<alt (+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* 1/3 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* -1 (/ (* (sin lambda1) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))>
#<alt (+ (* 1/8 (* phi1 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))) (* phi1 (+ (* 1/8 (* phi1 (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/8 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))) (* phi1 (+ (* 1/8 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (* phi1 (+ (* 1/8 (* phi1 (+ (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -2/3 (sin (neg phi2)))))) (* 1/8 (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))>
#<alt (+ (* 1/8 (* phi2 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))>
#<alt (+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* 1/8 (* phi2 (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))))) (* 1/8 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))))))>
#<alt (+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* 1/8 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (* phi2 (+ (* 1/8 (* phi2 (+ (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* 2/3 (sin phi1))))) (* 1/8 (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1)))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))))>
#<alt (+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))>
#<alt (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 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/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 lambda1))>
#<alt (+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (pow (sin (* 1/2 phi2)) 2)>
#<alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (sin (* 1/2 phi1)) 2)>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (sin (* -1/2 phi2))>
#<alt (+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* 1/2 phi1))>
#<alt (+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (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 phi2)) (sin (* 1/2 phi2)))>
#<alt (+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* 1/2 (cos (* 1/2 phi2)))))))>
#<alt (+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/8 (sin (* 1/2 phi2))))))))))>
#<alt (+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (+ (* -1/8 (sin (* 1/2 phi2))) (* phi1 (+ (* -1/48 (cos (* -1/2 phi2))) (* -1/48 (cos (* 1/2 phi2)))))))))))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (* 2 (sin (* 1/2 phi1)))>
#<alt (+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* 1/2 (cos (* 1/2 phi1))))))>
#<alt (+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (+ (* -1/4 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 1/2 phi1)))))))>
#<alt (+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (+ (* 1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/4 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/48 (cos (* 1/2 phi1))) (* 1/48 (cos (* 1/2 phi1)))))))))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))>

Calls

279 calls:

Time	Variable		Point	Expression
19.0ms	phi2	@	0	(* (atan2 (sqrt (/ (+ (* (- 1 (cos phi1)) 4) (* 2 (* (- 1 (cos (* (- lambda1 lambda2) 1))) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) 8)) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
17.0ms	lambda1	@	-inf	(* (atan2 (sqrt (+ (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2))))) (* R 2))
16.0ms	phi2	@	0	(sqrt (/ (+ (* (- 1 (cos phi1)) 4) (* 2 (* (- 1 (cos (* (- lambda1 lambda2) 1))) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) 8))
9.0ms	lambda1	@	-inf	(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2)))
6.0ms	R	@	0	(* (atan2 (pow (exp (log (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))) 1/2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))

rewrite268.0ms (0.5%)

Algorithm

1×	batch-egg-rewrite

Rules

2760×	`-lowering-.f32`
2760×	`-lowering-.f64`
1946×	`/-lowering-/.f32`
1946×	`/-lowering-/.f64`
1430×	`+-lowering-+.f64`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	103	1018
1	659	762
2	6887	762
0	8415	762

Stop Event

1×	iter limit
1×	node limit

Counts

26 → 303

Calls

Call 1

Inputs
(* (atan2 (sqrt (+ (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2))))) (* R 2))
(atan2 (sqrt (+ (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2)))))
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2)))
(* (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(sin (* 1/2 (- lambda1 lambda2)))
(* 1/2 (- lambda1 lambda2))
(* (atan2 (sqrt (/ (+ (* (- 1 (cos phi1)) 4) (* 2 (* (- 1 (cos (* (- lambda1 lambda2) 1))) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) 8)) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (sqrt (/ (+ (* (- 1 (cos phi1)) 4) (* 2 (* (- 1 (cos (* (- lambda1 lambda2) 1))) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) 8)) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(sqrt (/ (+ (* (- 1 (cos phi1)) 4) (* 2 (* (- 1 (cos (* (- lambda1 lambda2) 1))) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) 8))
(/ (+ (* (- 1 (cos phi1)) 4) (* 2 (* (- 1 (cos (* (- lambda1 lambda2) 1))) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) 8)
(* (atan2 (pow (exp (log (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))) 1/2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (pow (exp (log (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))) 1/2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(pow (exp (log (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))) 1/2)
(exp (log (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))))
(* (atan2 (sqrt (/ (+ (* (- (cos (/ 0 (/ 2 (- phi1 phi2)))) (cos (* 2 (/ (- phi1 phi2) 2)))) 4) (* 2 (* (- 1 (cos (* (- lambda1 lambda2) 1))) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) 8)) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (+ (* (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2)))) 1/2) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2))))) (* R 2))
(atan2 (sqrt (/ (+ (* (- (cos (/ 0 (/ 2 (- phi1 phi2)))) (cos (* 2 (/ (- phi1 phi2) 2)))) 4) (* 2 (* (- 1 (cos (* (- lambda1 lambda2) 1))) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) 8)) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (+ (* (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2)))) 1/2) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2)))))
(sqrt (/ (+ (* (- (cos (/ 0 (/ 2 (- phi1 phi2)))) (cos (* 2 (/ (- phi1 phi2) 2)))) 4) (* 2 (* (- 1 (cos (* (- lambda1 lambda2) 1))) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) 8))
(/ (+ (* (- (cos (/ 0 (/ 2 (- phi1 phi2)))) (cos (* 2 (/ (- phi1 phi2) 2)))) 4) (* 2 (* (- 1 (cos (* (- lambda1 lambda2) 1))) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) 8)
(sin (/ (- lambda1 lambda2) -2))
(sin (/ (- lambda1 lambda2) 2))
(pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)
(sin (/ (- phi1 phi2) 2))
(cos (* (- lambda1 lambda2) 1))
(+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2))))

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

simplify932.0ms (1.9%)

Algorithm

1×	egg-herbie

Rules

6332×	`-lowering-.f32`
6332×	`-lowering-.f64`
2818×	`+-lowering-+.f64`
2818×	`+-lowering-+.f32`
1714×	`*-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	1615	57479
1	5547	55992
0	8239	55992

Stop Event

1×	iter limit
1×	node limit

Counts

1116 → 1116

Calls

Call 1

Inputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (+ (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* 1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(* -1/2 lambda2)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(* 1/2 lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* 1/2 lambda1)
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* 1/2 lambda1)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(* -1/2 lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* -1/2 lambda2)
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(* (* (sqrt 1/8) (sqrt 2)) (sqrt (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))))
(+ (* -1 (* (/ (* phi1 (* (sqrt 1/8) (+ (sin phi2) (sin (neg phi2))))) (sqrt 2)) (sqrt (/ (- 1 (cos (- lambda1 lambda2))) (+ (cos phi2) (cos (neg phi2))))))) (* (* (sqrt 1/8) (sqrt 2)) (sqrt (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))
(+ (* phi1 (+ (* -1 (* (/ (* (sqrt 1/8) (+ (sin phi2) (sin (neg phi2)))) (sqrt 2)) (sqrt (/ (- 1 (cos (- lambda1 lambda2))) (+ (cos phi2) (cos (neg phi2))))))) (* 1/2 (* (/ (* phi1 (* (sqrt 1/8) (- (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (/ (* (pow (+ (sin phi2) (sin (neg phi2))) 2) (- 1 (cos (- lambda1 lambda2)))) (* (pow (sqrt 2) 2) (+ (cos phi2) (cos (neg phi2)))))))) (sqrt 2)) (sqrt (/ 1 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))))) (* (* (sqrt 1/8) (sqrt 2)) (sqrt (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))
(+ (* phi1 (+ (* -1 (* (/ (* (sqrt 1/8) (+ (sin phi2) (sin (neg phi2)))) (sqrt 2)) (sqrt (/ (- 1 (cos (- lambda1 lambda2))) (+ (cos phi2) (cos (neg phi2))))))) (* phi1 (+ (* 1/2 (* (/ (* phi1 (* (sqrt 1/8) (- (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -1 (/ (* (+ (sin phi2) (sin (neg phi2))) (- (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (/ (* (pow (+ (sin phi2) (sin (neg phi2))) 2) (- 1 (cos (- lambda1 lambda2)))) (* (pow (sqrt 2) 2) (+ (cos phi2) (cos (neg phi2))))))) (* (pow (sqrt 2) 2) (+ (cos phi2) (cos (neg phi2))))))))) (sqrt 2)) (sqrt (/ 1 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/2 (* (/ (* (sqrt 1/8) (- (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (/ (* (pow (+ (sin phi2) (sin (neg phi2))) 2) (- 1 (cos (- lambda1 lambda2)))) (* (pow (sqrt 2) 2) (+ (cos phi2) (cos (neg phi2))))))) (sqrt 2)) (sqrt (/ 1 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))))))) (* (* (sqrt 1/8) (sqrt 2)) (sqrt (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))
(+ (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))) (* (* lambda1 (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))))
(+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+ (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* -1/3 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (/ (* (sin (neg lambda2)) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))))
(+ (* -1 (* (* lambda2 (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))
(+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))
(+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* 1/3 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* -1 (/ (* (sin lambda1) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(+ (* -1 (* (* phi2 (* (sqrt 1/8) (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+ (* phi2 (+ (* -1 (* (* (sqrt 1/8) (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (/ (* (pow (+ (sin phi1) (* -1 (sin phi1))) 2) (pow (- 1 (cos (- lambda1 lambda2))) 2)) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+ (* phi2 (+ (* -1 (* (* (sqrt 1/8) (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* -1 (/ (* (+ (sin phi1) (* -1 (sin phi1))) (* (- 1 (cos (- lambda1 lambda2))) (- (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (/ (* (pow (+ (sin phi1) (* -1 (sin phi1))) 2) (pow (- 1 (cos (- lambda1 lambda2))) 2)) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (/ (* (pow (+ (sin phi1) (* -1 (sin phi1))) 2) (pow (- 1 (cos (- lambda1 lambda2))) 2)) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(* 1/4 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))
(+ (* -1/4 (* phi1 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))))
(+ (* 1/4 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/4 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 1/8 (* phi1 (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))))))))
(+ (* 1/4 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/4 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/4 (* phi1 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/8 (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))) (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))
(+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(+ (* -1/4 (* phi2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* -1/4 (* phi2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* -1/4 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))))
(+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* -1/4 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/4 (* phi2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* 1/12 (sin phi1)) (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))
(+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))
(+ (* phi1 (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))
(+ (* phi1 (+ (* 1/2 (* (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* phi1 (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (- (+ (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -2/3 (sin (neg phi2)))) (* 1/2 (/ (* (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+ (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+ (* phi2 (+ (* 1/2 (* (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (+ (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* 2/3 (sin phi1))) (* 1/2 (/ (* (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(+ (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))) (* (* lambda1 (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))
(+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* -1/3 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (/ (* (sin (neg lambda2)) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(+ (* -1 (* (* lambda2 (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* 1/3 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* -1 (/ (* (sin lambda1) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))
(+ (* 1/8 (* phi1 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))) (* phi1 (+ (* 1/8 (* phi1 (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/8 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))) (* phi1 (+ (* 1/8 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (* phi1 (+ (* 1/8 (* phi1 (+ (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -2/3 (sin (neg phi2)))))) (* 1/8 (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(+ (* 1/8 (* phi2 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* 1/8 (* phi2 (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))))) (* 1/8 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))))))
(+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* 1/8 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (* phi2 (+ (* 1/8 (* phi2 (+ (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* 2/3 (sin phi1))))) (* 1/8 (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1)))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))
(+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(sin (* 1/2 lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 lambda1))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(pow (sin (* 1/2 phi2)) 2)
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (sin (* 1/2 phi1)) 2)
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(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 phi2)) (sin (* 1/2 phi2)))
(+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* 1/2 (cos (* 1/2 phi2)))))))
(+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/8 (sin (* 1/2 phi2))))))))))
(+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (+ (* -1/8 (sin (* 1/2 phi2))) (* phi1 (+ (* -1/48 (cos (* -1/2 phi2))) (* -1/48 (cos (* 1/2 phi2)))))))))))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(* 2 (sin (* 1/2 phi1)))
(+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* 1/2 (cos (* 1/2 phi1))))))
(+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (+ (* -1/4 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 1/2 phi1)))))))
(+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (+ (* 1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/4 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/48 (cos (* 1/2 phi1))) (* 1/48 (cos (* 1/2 phi1)))))))))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))

Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (+ (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (+.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (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 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (+.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 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.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 (.f64 #s(literal -1/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 (.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 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (+.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 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (+.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))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 (.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 #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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 (.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 (.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/16 binary64)) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/48 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal 1/12 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #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 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 #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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 #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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/16 binary64) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/12 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 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 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 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 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 phi1 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (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 (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/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (+.f64 (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 phi2 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 #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 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 (.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 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 (.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 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/16 binary64)) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/48 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal 1/12 binary64))))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.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 (.f64 #s(literal -1/48 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/12 binary64))))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.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 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal -1/8 binary64)) (.f64 (.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) lambda2) lambda1) #s(literal -1/2 binary64)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) lambda2) lambda1) #s(literal -1/2 binary64)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) lambda2) lambda1) #s(literal -1/2 binary64)))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(.f64 lambda2 (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) lambda1) lambda2) #s(literal -1/2 binary64)))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(.f64 lambda2 (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) lambda1) lambda2) #s(literal -1/2 binary64)))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(.f64 lambda2 (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) lambda1) lambda2) #s(literal -1/2 binary64)))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 #s(literal -1/2 binary64)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 #s(literal -1/2 binary64)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 #s(literal -1/2 binary64)) lambda2)) (-.f64 #s(literal 0 binary64) lambda2))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))) (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 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* (* (sqrt 1/8) (sqrt 2)) (sqrt (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))))
(.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))))
(+ (* -1 (* (/ (* phi1 (* (sqrt 1/8) (+ (sin phi2) (sin (neg phi2))))) (sqrt 2)) (sqrt (/ (- 1 (cos (- lambda1 lambda2))) (+ (cos phi2) (cos (neg phi2))))))) (* (* (sqrt 1/8) (sqrt 2)) (sqrt (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))
(-.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))) (.f64 (/.f64 (.f64 (.f64 phi1 (sqrt.f64 #s(literal 1/8 binary64))) (-.f64 (sin.f64 phi2) (sin.f64 phi2))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))))
(+ (* phi1 (+ (* -1 (* (/ (* (sqrt 1/8) (+ (sin phi2) (sin (neg phi2)))) (sqrt 2)) (sqrt (/ (- 1 (cos (- lambda1 lambda2))) (+ (cos phi2) (cos (neg phi2))))))) (* 1/2 (* (/ (* phi1 (* (sqrt 1/8) (- (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (/ (* (pow (+ (sin phi2) (sin (neg phi2))) 2) (- 1 (cos (- lambda1 lambda2)))) (* (pow (sqrt 2) 2) (+ (cos phi2) (cos (neg phi2)))))))) (sqrt 2)) (sqrt (/ 1 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))))) (* (* (sqrt 1/8) (sqrt 2)) (sqrt (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 phi1 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 #s(literal 2 binary64) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (sqrt.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (-.f64 (sin.f64 phi2) (sin.f64 phi2))) (sqrt.f64 #s(literal 2 binary64)))))))
(+ (* phi1 (+ (* -1 (* (/ (* (sqrt 1/8) (+ (sin phi2) (sin (neg phi2)))) (sqrt 2)) (sqrt (/ (- 1 (cos (- lambda1 lambda2))) (+ (cos phi2) (cos (neg phi2))))))) (* phi1 (+ (* 1/2 (* (/ (* phi1 (* (sqrt 1/8) (- (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -1 (/ (* (+ (sin phi2) (sin (neg phi2))) (- (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (/ (* (pow (+ (sin phi2) (sin (neg phi2))) 2) (- 1 (cos (- lambda1 lambda2)))) (* (pow (sqrt 2) 2) (+ (cos phi2) (cos (neg phi2))))))) (* (pow (sqrt 2) 2) (+ (cos phi2) (cos (neg phi2))))))))) (sqrt 2)) (sqrt (/ 1 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/2 (* (/ (* (sqrt 1/8) (- (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (/ (* (pow (+ (sin phi2) (sin (neg phi2))) 2) (- 1 (cos (- lambda1 lambda2)))) (* (pow (sqrt 2) 2) (+ (cos phi2) (cos (neg phi2))))))) (sqrt 2)) (sqrt (/ 1 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))))))) (* (* (sqrt 1/8) (sqrt 2)) (sqrt (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))) (.f64 phi1 (-.f64 (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (.f64 (.f64 (.f64 phi1 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (-.f64 (sin.f64 phi2) (sin.f64 phi2))))) (/.f64 (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (+.f64 #s(literal 2 binary64) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))))) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 #s(literal 2 binary64) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))))) (sqrt.f64 #s(literal 2 binary64)))))) (.f64 (sqrt.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (-.f64 (sin.f64 phi2) (sin.f64 phi2))) (sqrt.f64 #s(literal 2 binary64)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))
(+ (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))) (* (* lambda1 (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (.f64 (.f64 lambda1 (.f64 (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))))
(+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda2)) (/.f64 (.f64 (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))))))) (.f64 (.f64 (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* -1/3 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (/ (* (sin (neg lambda2)) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (.f64 (.f64 lambda1 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (.f64 #s(literal -1/3 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda2) (/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda2)) (/.f64 (.f64 (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda2)) (/.f64 (.f64 (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))
(+ (* -1 (* (* lambda2 (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))
(-.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))) (.f64 (.f64 lambda2 (.f64 (.f64 (sin.f64 lambda1) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))))
(+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))) (.f64 (.f64 lambda2 (sqrt.f64 #s(literal 1/8 binary64))) (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda1)) (/.f64 (.f64 (pow.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))))) (.f64 (sin.f64 lambda1) (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))))))))
(+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* 1/3 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* -1 (/ (* (sin lambda1) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 #s(literal 1/3 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (sin.f64 lambda1))) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda1)) (/.f64 (.f64 (pow.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda1)) (/.f64 (.f64 (pow.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))))))) (.f64 (sin.f64 lambda1) (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(+ (* -1 (* (* phi2 (* (sqrt 1/8) (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(-.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 (.f64 phi2 (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) #s(literal 0 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))))
(+ (* phi2 (+ (* -1 (* (* (sqrt 1/8) (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (/ (* (pow (+ (sin phi1) (* -1 (sin phi1))) 2) (pow (- 1 (cos (- lambda1 lambda2))) 2)) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 0 binary64) (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))))))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) #s(literal 0 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))))))
(+ (* phi2 (+ (* -1 (* (* (sqrt 1/8) (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* -1 (/ (* (+ (sin phi1) (* -1 (sin phi1))) (* (- 1 (cos (- lambda1 lambda2))) (- (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (/ (* (pow (+ (sin phi1) (* -1 (sin phi1))) 2) (pow (- 1 (cos (- lambda1 lambda2))) 2)) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (/ (* (pow (+ (sin phi1) (* -1 (sin phi1))) 2) (pow (- 1 (cos (- lambda1 lambda2))) 2)) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 phi2 (-.f64 (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 #s(literal 0 binary64) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 0 binary64) (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 0 binary64) (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))))))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) #s(literal 0 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(* 1/4 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))
(.f64 #s(literal 1/4 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))
(+ (* -1/4 (* phi1 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))))
(+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))) (.f64 (.f64 #s(literal -1/4 binary64) phi1) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))))
(+ (* 1/4 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/4 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 1/8 (* phi1 (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))))))))
(+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (.f64 (.f64 #s(literal 1/8 binary64) phi1) (+.f64 #s(literal 2 binary64) (.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
(+ (* 1/4 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/4 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/4 (* phi1 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/8 (+ 2 (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))))))))))
(+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) phi1) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (-.f64 (sin.f64 phi2) (sin.f64 phi2))))) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))) (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (.f64 (.f64 #s(literal 1/4 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/8 binary64) lambda1) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda2))) (.f64 (.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos phi1))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/24 binary64) lambda1) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 (*.f64 #s(literal 1/8 binary64) (cos.f64 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.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 lambda2 lambda1)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))
(+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))) (.f64 #s(literal -1/4 binary64) (.f64 (*.f64 lambda2 (sin.f64 lambda1)) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (sin.f64 lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 lambda2 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda1)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (sin.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) lambda2) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (sin.f64 lambda1))) (.f64 (*.f64 #s(literal 1/8 binary64) (cos.f64 lambda1)) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(+ (* -1/4 (* phi2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 phi2 #s(literal 0 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* -1/4 (* phi2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* -1/4 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))) (.f64 phi2 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 phi2 (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* -1/4 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/4 (* phi2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))) (.f64 phi2 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 phi2 (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (.f64 phi2 #s(literal 0 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/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) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/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) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/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) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/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) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/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) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/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) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/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) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/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) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (.f64 (+.f64 (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal -1/12 binary64)) (.f64 #s(literal -1/4 binary64) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))) (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(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/12 (sin phi1)) (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #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 #s(literal 1/2 binary64) (+.f64 (.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 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))) (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.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 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi1 (+.f64 (.f64 phi1 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))) (.f64 (sin.f64 phi2) #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 (.f64 (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal -1/12 binary64)) (.f64 (cos.f64 phi2) #s(literal 1/4 binary64))))) (.f64 (sin.f64 phi2) #s(literal -1/2 binary64))))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 (+.f64 (.f64 phi2 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal 1/12 binary64)) (.f64 (cos.f64 phi1) #s(literal 1/4 binary64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) lambda1) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.f64 (.f64 #s(literal -1/12 binary64) lambda1) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.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 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (.f64 #s(literal 1/4 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/12 binary64) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (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 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (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 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (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 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (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 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (* -1 (+ phi2 (* -1 phi1))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (+ phi1 (* -1 phi2)))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (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 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (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 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (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 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (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 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(atan2 (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- (cos 0) (cos (- phi1 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))))
(+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 phi1 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))))
(+ (* phi1 (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))) (.f64 (.f64 phi1 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) #s(literal 2 binary64)) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))))))))))
(+ (* phi1 (+ (* 1/2 (* (* (sqrt 1/8) (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* phi1 (+ (* 1/2 (* (* phi1 (* (sqrt 1/8) (- (+ (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -2/3 (sin (neg phi2)))) (* 1/2 (/ (* (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))) (* 1/4 (/ (pow (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))) 2) (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))) (.f64 (.f64 phi1 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (-.f64 (sin.f64 phi2) (sin.f64 phi2))))) (neg.f64 (.f64 (sin.f64 phi2) #s(literal -2/3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (+.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) #s(literal 2 binary64)) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))))) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (.f64 (+.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2)))))) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) #s(literal 2 binary64)) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))))))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 (.f64 phi2 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (*.f64 (sin.f64 phi1) #s(literal -4 binary64)))))))
(+ (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (.f64 (-.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal -4 binary64))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (*.f64 (sin.f64 phi1) #s(literal -4 binary64)))))))))
(+ (* phi2 (+ (* 1/2 (* (* (sqrt 1/8) (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* phi2 (+ (* 1/2 (* (* phi2 (* (sqrt 1/8) (- (+ (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* 2/3 (sin phi1))) (* 1/2 (/ (* (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (* 1/2 (* (* (sqrt 1/8) (- (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))) (* 1/4 (/ (pow (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))) 2) (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))) (sqrt (/ 1 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))))))) (* (sqrt 1/8) (sqrt (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal -4 binary64)))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 (.f64 phi2 (sqrt.f64 #s(literal 1/8 binary64))) (-.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal 2/3 binary64))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal -4 binary64))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal -4 binary64))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (.f64 (-.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal -4 binary64))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2))))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(+ (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))) (* (* lambda1 (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 (.f64 lambda1 (.f64 (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 (.f64 lambda1 (sqrt.f64 #s(literal 1/8 binary64))) (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda2)) (/.f64 (.f64 (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (.f64 (.f64 (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (* lambda1 (* (sqrt 1/8) (- (* -1/3 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (/ (* (sin (neg lambda2)) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin (neg lambda2)) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))))) (* (* (sin (neg lambda2)) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 (.f64 lambda1 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (.f64 #s(literal -1/3 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda2) (/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda2)) (/.f64 (.f64 (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda2)) (/.f64 (.f64 (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(+ (* -1 (* (* lambda2 (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(-.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 (.f64 lambda2 (.f64 (.f64 (sin.f64 lambda1) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 (.f64 lambda2 (sqrt.f64 #s(literal 1/8 binary64))) (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda1)) (/.f64 (.f64 (pow.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (.f64 (.f64 (.f64 (sin.f64 lambda1) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
(+ (* lambda2 (+ (* -1 (* (* (sin lambda1) (* (sqrt 1/8) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (* (sqrt 1/8) (- (* 1/3 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* -1 (/ (* (sin lambda1) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))) (* 1/2 (* (* (sqrt 1/8) (- (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))) (/ (* (pow (sin lambda1) 2) (pow (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) 2)) (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))))))) (* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 (.f64 lambda2 (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (.f64 #s(literal 1/3 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (sin.f64 lambda1))) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda1)) (/.f64 (.f64 (pow.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda1)) (/.f64 (.f64 (pow.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))) (.f64 (.f64 (.f64 (sin.f64 lambda1) (sqrt.f64 #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* (sqrt 1/8) (sqrt (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))
(+ (* 1/8 (* phi1 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))) (* phi1 (+ (* 1/8 (* phi1 (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/8 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))) (.f64 phi1 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi1 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))))) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos phi2) (cos (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (neg phi2)))))) (* phi1 (+ (* 1/8 (+ (* -2 (* (+ (sin phi2) (sin (neg phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (sin (neg phi2))))) (* phi1 (+ (* 1/8 (* phi1 (+ (* -2 (* (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* -2/3 (sin (neg phi2)))))) (* 1/8 (+ (* 2 (cos (neg phi2))) (* 2 (* (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))) (- 1 (cos (- lambda1 lambda2))))))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2))))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (.f64 phi1 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (-.f64 (sin.f64 phi2) (sin.f64 phi2))))) (neg.f64 (.f64 (sin.f64 phi2) #s(literal -2/3 binary64))))) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1)))))
(.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))
(+ (* 1/8 (* phi2 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal -4 binary64)))) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))
(+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* 1/8 (* phi2 (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1))))) (* 1/8 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))) (.f64 phi2 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2 binary64) (cos.f64 phi1)))) (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (*.f64 (sin.f64 phi1) #s(literal -4 binary64)))))))
(+ (* 1/8 (+ (* 4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos phi1))))) (* phi2 (+ (* 1/8 (+ (* -4 (sin phi1)) (* -2 (* (+ (sin phi1) (* -1 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))))) (* phi2 (+ (* 1/8 (* phi2 (+ (* -2 (* (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))) (- 1 (cos (- lambda1 lambda2))))) (* 2/3 (sin phi1))))) (* 1/8 (+ (* -2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 2 (cos phi1)))))))))
(+.f64 (.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal -4 binary64)))) (.f64 phi2 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal 2/3 binary64)))) (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1)))))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (+ phi1 (* -1 phi2)))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+.f64 (.f64 (.f64 #s(literal 1/4 binary64) lambda1) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))
(+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/8 binary64) lambda1) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda2))) (.f64 (.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (neg lambda2))))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))
(+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/24 binary64) lambda1) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 (.f64 #s(literal 1/8 binary64) (cos.f64 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))))
(+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 lambda2 (sin.f64 lambda1)) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))))
(+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (sin.f64 lambda1))) (.f64 #s(literal 1/8 binary64) (.f64 lambda2 (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 lambda1)))))) (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(+ (* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos lambda1)))) (* 4 (- 1 (cos (- phi1 phi2)))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))))))
(+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (sin.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) lambda2) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (sin.f64 lambda1))) (.f64 (.f64 #s(literal 1/8 binary64) (cos.f64 lambda1)) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (- lambda1 lambda2))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 1/8 (+ (* 2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (* 4 (- 1 (cos (- phi1 phi2))))))
(.f64 #s(literal 1/8 binary64) (+.f64 (.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 lambda1 lambda2))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sin (* 1/2 lambda2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (.f64 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 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal -1/8 binary64)) (.f64 (.f64 #s(literal 1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 lambda1))
(sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 lambda2 (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) #s(literal -1/8 binary64)) (.f64 (.f64 #s(literal -1/48 binary64) lambda2) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(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 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal -1/8 binary64)) (.f64 (.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(pow (sin (* 1/2 phi2)) 2)
(pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))
(-.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (+.f64 (.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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (sin (* 1/2 phi1)) 2)
(pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(-.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi2 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 phi2 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(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)))
(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 #s(literal 1/6 binary64) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (sin.f64 lambda1))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1))))) (sin.f64 lambda1))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+ (sin (* -1/2 phi2)) (sin (* 1/2 phi2)))
(+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* 1/2 (cos (* 1/2 phi2)))))))
(+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))))))
(+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/8 (sin (* 1/2 phi2))))))))))
(+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 phi1 (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))))
(+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (+ (* -1/8 (sin (* 1/2 phi2))) (* phi1 (+ (* -1/48 (cos (* -1/2 phi2))) (* -1/48 (cos (* 1/2 phi2)))))))))))))
(+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 phi1 (.f64 #s(literal -1/48 binary64) (+.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))))))))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* 2 (sin (* 1/2 phi1)))
(.f64 #s(literal 2 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))
(+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* 1/2 (cos (* 1/2 phi1))))))
(+.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 #s(literal 0 binary64)))
(+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (+ (* -1/4 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 1/2 phi1)))))))
(+.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/4 binary64) phi2) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))))))
(+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (+ (* 1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/4 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/48 (cos (* 1/2 phi1))) (* 1/48 (cos (* 1/2 phi1)))))))))))
(+.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 phi2 (+.f64 #s(literal 0 binary64) (.f64 phi2 (+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/4 binary64)) (*.f64 phi2 #s(literal 0 binary64)))))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))

eval530.0ms (1.1%)

Compiler: Compiled 159976 to 5205 computations (96.7% saved)

prune863.0ms (1.8%)

Pruning

189 alts after pruning (189 fresh and 0 done)

	Pruned	Kept	Total
New	1863	76	1939
Fresh	29	113	142
Picked	5	0	5
Done	0	0	0
Total	1897	189	2086

Accuracy

79.2%

Counts

2086 → 189

Alt Table

Click to see full alt table

Status	Accuracy	Program
	57.5%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.2%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 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.5%	(.f64 (atan2.f64 (pow.f64 (exp.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) #s(literal 1/2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	58.3%	(.f64 (atan2.f64 (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) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #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)))
	57.5%	(.f64 (atan2.f64 (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)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	15.3%	(.f64 (atan2.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	33.4%	(.f64 (atan2.f64 (+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (.f64 phi2 (sqrt.f64 #s(literal 1/8 binary64))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	38.6%	(.f64 (atan2.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	33.5%	(.f64 (atan2.f64 (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.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 #s(literal -1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	13.6%	(.f64 (atan2.f64 (+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	13.0%	(.f64 (atan2.f64 (+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	14.9%	(.f64 (atan2.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi1 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	12.1%	(.f64 (atan2.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	21.3%	(.f64 (atan2.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	44.1%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 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)))
	27.8%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	27.5%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 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)))
	58.0%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (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 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	39.7%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.7%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	28.0%	(.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.7%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 #s(literal 8 binary64) (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.1%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 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)))
	58.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 (fma.f64 (-.f64 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))))) (.f64 R #s(literal 2 binary64)))
	46.0%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.9%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.1%	(.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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	54.2%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.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 (fma.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	51.1%	(.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 (fma.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (.f64 (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))))))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.5%	(.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 (fma.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	40.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 (fma.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	57.2%	(.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 (fma.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	59.0%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	36.3%	(.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 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	43.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 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	41.3%	(.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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.3%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.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 (-.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (.f64 R #s(literal 2 binary64)))
	42.5%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi2)) #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)))
	37.2%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #s(literal 4 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
	37.0%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	37.9%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	36.0%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	37.9%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	30.5%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	24.8%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	37.0%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	29.1%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 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)))
	29.1%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 #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)))
	27.9%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	43.5%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (/.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.6%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 R #s(literal 2 binary64)))
	62.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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)))
	59.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	59.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	75.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	64.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/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)) #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 R #s(literal 2 binary64)))
	48.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))))))) (+.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))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
	64.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	50.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 #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 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	40.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (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 (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)))))) (.f64 R #s(literal 2 binary64)))
	51.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	63.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 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	47.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	47.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	77.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	72.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	36.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	46.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	51.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	60.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 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 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	47.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	47.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶	77.0%	(.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	48.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	59.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	63.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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	63.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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	43.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	49.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	61.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	62.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	49.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 #s(literal -1/2 binary64) phi2)) #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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 #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)))
	48.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	49.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	46.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.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 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	36.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	46.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 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)))
	41.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	24.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	67.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 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))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 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))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.4%	(.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 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.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)))
	40.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.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 (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)))
	39.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 (cos.f64 lambda2) (.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	58.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 (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)))
	39.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #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.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (/.f64 (+.f64 #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 (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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2)) (neg.f64 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	37.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (-.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	58.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	38.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (+.f64 (cos.f64 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)))
	43.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 (cos.f64 lambda2) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	44.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(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)))
	57.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 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)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	59.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 -2 binary64) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	36.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	38.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	42.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	42.2%	(.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)))
	36.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	64.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	45.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	42.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	43.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	42.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	33.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	48.6%	(.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)))
	42.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))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	21.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))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	45.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
▶	45.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	29.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	40.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶	33.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	44.6%	(.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	39.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	39.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	41.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.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 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
	42.4%	(.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)))
	43.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	5.8%	(.f64 (atan2.f64 (sqrt.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	21.4%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.3%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	36.1%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal -4 binary64)))) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	42.6%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	39.6%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	5.3%	(.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 (/.f64 lambda1 #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 lambda2 #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (/.f64 lambda1 #s(literal 2 binary64)) (/.f64 lambda1 #s(literal 2 binary64))) (+.f64 (.f64 (/.f64 lambda2 #s(literal 2 binary64)) (/.f64 lambda2 #s(literal 2 binary64))) (.f64 (/.f64 lambda1 #s(literal 2 binary64)) (/.f64 lambda2 #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	6.0%	(.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (.f64 lambda2 (.f64 lambda2 lambda2))) (.f64 #s(literal 2 binary64) (+.f64 (.f64 lambda1 lambda1) (.f64 lambda2 (+.f64 lambda1 lambda2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	8.9%	(.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	15.5%	(.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (.f64 R #s(literal 2 binary64)))
	15.1%	(.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	13.2%	(.f64 (atan2.f64 (sin.f64 (.f64 lambda2 (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) lambda1) lambda2) #s(literal -1/2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	11.2%	(.f64 (atan2.f64 (sin.f64 (.f64 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)))
	13.0%	(.f64 (atan2.f64 (sin.f64 (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	15.3%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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)))
	9.3%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	8.3%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.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)))
	8.4%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	15.4%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	13.3%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	15.8%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	10.7%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	15.4%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	15.3%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	12.4%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	13.9%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	10.9%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	15.5%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (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 (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)))
▶	15.5%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	63.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 (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.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) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))
	46.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))
	63.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
	63.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.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 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.2%	(.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 (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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 31456 to 17022 computations (45.9% saved)

simplify249.0ms (0.5%)

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

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

Rules

3562×	`-lowering-.f32`
3562×	`-lowering-.f64`
1918×	`+-lowering-+.f64`
1918×	`+-lowering-+.f32`
1072×	`associate-r`

Iterations

Useful iterations: 4 (0.0ms)

Iter	Nodes	Cost
0	128	2248
1	313	2200
2	801	2170
3	2392	2170
4	7548	2126
0	8139	2126

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

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

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

localize1.7s (3.5%)

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	accuracy	79.0%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	75.5%	(+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))
✓	accuracy	97.6%	(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
✓	accuracy	88.3%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	88.3%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	83.8%	(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))
✓	accuracy	83.8%	(+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64))
✓	accuracy	79.1%	(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓	accuracy	83.8%	(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
✓	accuracy	83.0%	(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))
✓	accuracy	79.1%	(cos.f64 (-.f64 lambda1 lambda2))
✓	accuracy	79.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	99.5%	(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
✓	accuracy	99.2%	(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
✓	accuracy	79.0%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
✓	accuracy	79.0%	(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))

Results

1.2s	205×	1	valid
97.0ms	46×	0	invalid
22.0ms	4×	2	valid
2.0ms	1×	0	valid

Compiler

Compiled 2363 to 128 computations (94.6% saved)

Precisions

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

ival-cos: 262.0ms (26.7% of total)

ival-sin: 244.0ms (24.9% of total)

ival-mult: 158.0ms (16.1% of total)

backward-pass: 91.0ms (9.3% of total)

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

ival-add: 39.0ms (4% of total)

ival-sqrt: 33.0ms (3.4% of total)

ival-sub: 30.0ms (3.1% of total)

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

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

compiled-spec: 9.0ms (0.9% of total)

const: 2.0ms (0.2% of total)

series460.0ms (0.9%)

Counts

35 → 1404

Calls

Call 1

Inputs
#<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) (sin (* -1/2 (- lambda2 lambda1)))) (sin (* 1/2 (- lambda2 lambda1))))) (pow (- (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2))))) (* R 2))>
#<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) (sin (* -1/2 (- lambda2 lambda1)))) (sin (* 1/2 (- lambda2 lambda1))))) (pow (- (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2)))))>
#<alt (sqrt (+ 1 (- (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda2 lambda1)))) (sin (* 1/2 (- lambda2 lambda1))))) (pow (- (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2))))>
#<alt (+ 1 (- (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda2 lambda1)))) (sin (* 1/2 (- lambda2 lambda1))))) (pow (- (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2)))>
#<alt (* (* R (atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (+ (cos (- lambda1 lambda2)) -1)) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))))))) 2)>
#<alt (* R (atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (+ (cos (- lambda1 lambda2)) -1)) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))))))>
#<alt (atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (+ (cos (- lambda1 lambda2)) -1)) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))))))>
#<alt (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (+ (cos (- lambda1 lambda2)) -1)) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))))>
#<alt (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 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 (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))>
#<alt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))>
#<alt (* (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))>
#<alt (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))>
#<alt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))>
#<alt (* (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (+ (* (+ (sin (/ (- lambda1 lambda2) 2)) (sin (* 1/2 (+ lambda1 lambda2)))) 1/2) (- 0 (* (cos (/ lambda1 2)) (sin (/ lambda2 2))))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (+ (* (+ (sin (/ (- lambda1 lambda2) 2)) (sin (* 1/2 (+ lambda1 lambda2)))) 1/2) (- 0 (* (cos (/ lambda1 2)) (sin (/ lambda2 2))))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))>
#<alt (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (+ (* (+ (sin (/ (- lambda1 lambda2) 2)) (sin (* 1/2 (+ lambda1 lambda2)))) 1/2) (- 0 (* (cos (/ lambda1 2)) (sin (/ lambda2 2))))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))>
#<alt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (+ (* (+ (sin (/ (- lambda1 lambda2) 2)) (sin (* 1/2 (+ lambda1 lambda2)))) 1/2) (- 0 (* (cos (/ lambda1 2)) (sin (/ lambda2 2))))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))>
#<alt (sin (* -1/2 (- lambda2 lambda1)))>
#<alt (sin (* 1/2 (- lambda2 lambda1)))>
#<alt (pow (- (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2)>
#<alt (sin (/ (- lambda1 lambda2) 2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))>
#<alt (+ (cos (- lambda1 lambda2)) -1)>
#<alt (cos (* (- lambda1 lambda2) 1))>
#<alt (+ (cos (* (- lambda1 lambda2) 1)) -1)>
#<alt (- 1 (cos (* (- lambda1 lambda2) 1)))>
#<alt (sin (/ (- phi1 phi2) 2))>
#<alt (sin (/ (- lambda1 lambda2) -2))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2)))))))>
#<alt (+ (sin (/ (- lambda1 lambda2) 2)) (sin (* 1/2 (+ lambda1 lambda2))))>
#<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) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (+ (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2)))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2)))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* -1/12 (sin (neg phi2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* 1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))) (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))))) (* 1/2 (* (* phi1 (- (* 1/12 (sin (neg phi2))) (* -1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))) (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))))))) (* 1/2 (* (* phi2 (- (* -1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (* 1/2 (* (* lambda1 (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))))))) (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (* 1/2 (* (* lambda2 (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))))))) (* 1/2 (* (* lambda2 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))>
#<alt (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/12 (* phi1 (sin (neg phi2))))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* -1/12 (* phi2 (sin phi1)))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* lambda2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (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 (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 (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 (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 (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* 1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (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 (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 (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 (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 (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 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))) 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))) 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))) 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))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (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)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 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))) 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))) 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))) 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))) 2)))>
#<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))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))) (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2)))))) (+ (* -1/16 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* -1/48 (cos (* -1/2 lambda2))) (* -1/48 (cos (* 1/2 lambda2))))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/48 (cos (* 1/2 lambda1))) (* 1/48 (cos (* 1/2 lambda1))))) (* -1/48 (cos (* 1/2 lambda1)))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) 2))) (- (+ 1 (* (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)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (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)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (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)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (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/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2)))))) (+ (* -1/16 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* -1/48 (cos (* -1/2 lambda2))) (* -1/48 (cos (* 1/2 lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2))))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 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 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 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/8 (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/48 (cos (* 1/2 lambda1))) (* 1/48 (cos (* 1/2 lambda1))))) (* -1/48 (cos (* 1/2 lambda1))))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))))) (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<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 (- lambda2 lambda1)))>
#<alt (sin (* -1/2 (- lambda2 lambda1)))>
#<alt (sin (* -1/2 (- lambda2 lambda1)))>
#<alt (sin (* -1/2 (- lambda2 lambda1)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* -1/2 (- lambda2 lambda1)))>
#<alt (sin (* -1/2 (- lambda2 lambda1)))>
#<alt (sin (* -1/2 (- lambda2 lambda1)))>
#<alt (sin (* -1/2 (- lambda2 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 (+ 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 (- lambda2 lambda1)))>
#<alt (sin (* 1/2 (- lambda2 lambda1)))>
#<alt (sin (* 1/2 (- lambda2 lambda1)))>
#<alt (sin (* 1/2 (- lambda2 lambda1)))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 lambda2))>
#<alt (+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda2 lambda1)))>
#<alt (sin (* 1/2 (- lambda2 lambda1)))>
#<alt (sin (* 1/2 (- lambda2 lambda1)))>
#<alt (sin (* 1/2 (- lambda2 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 (+ lambda2 (* -1 lambda1))))>
#<alt (pow (sin (* 1/2 phi1)) 2)>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (sin (* 1/2 phi2)) 2)>
#<alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (cos (neg 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 (+ 1/2 (* -1/2 (cos (neg phi2))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* 1/2 (* phi1 (sin (neg phi2))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* phi1 (+ (* 1/4 (* phi1 (cos (neg phi2)))) (* 1/2 (sin (neg phi2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* phi1 (+ (* 1/2 (sin (neg phi2))) (* phi1 (+ (* -1/12 (* phi1 (sin (neg phi2)))) (* 1/4 (cos (neg phi2)))))))))>
#<alt (+ 1/2 (* -1/2 (cos (- phi1 phi2))))>
#<alt (+ 1/2 (* -1/2 (cos (- phi1 phi2))))>
#<alt (+ 1/2 (* -1/2 (cos (- phi1 phi2))))>
#<alt (+ 1/2 (* -1/2 (cos (- phi1 phi2))))>
#<alt (+ 1/2 (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (+ 1/2 (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (+ 1/2 (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (+ 1/2 (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (+ 1/2 (* -1/2 (cos phi1)))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* -1/2 (* phi2 (sin phi1)))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/4 (* phi2 (cos phi1)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* phi2 (+ (* 1/12 (* phi2 (sin phi1))) (* 1/4 (cos phi1))))))))>
#<alt (+ 1/2 (* -1/2 (cos (- phi1 phi2))))>
#<alt (+ 1/2 (* -1/2 (cos (- phi1 phi2))))>
#<alt (+ 1/2 (* -1/2 (cos (- phi1 phi2))))>
#<alt (+ 1/2 (* -1/2 (cos (- phi1 phi2))))>
#<alt (+ 1/2 (* -1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (+ 1/2 (* -1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (+ 1/2 (* -1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (+ 1/2 (* -1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (cos (neg lambda2)) 1)>
#<alt (- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)>
#<alt (- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)>
#<alt (- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos lambda1) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (cos (neg lambda2))>
#<alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))>
#<alt (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))>
#<alt (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos lambda1)>
#<alt (+ (cos lambda1) (* lambda2 (sin lambda1)))>
#<alt (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))>
#<alt (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (- (cos (neg lambda2)) 1)>
#<alt (- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)>
#<alt (- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)>
#<alt (- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos lambda1) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- 1 (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos lambda1))>
#<alt (- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))>
#<alt (- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))>
#<alt (- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (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/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 lambda1))>
#<alt (+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/4 (/ (* phi1 phi2) (sin (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 lambda1)))) (* 1/2 (/ (* phi2 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 lambda1)) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 lambda1)) 2))))) (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 lambda1)))) (* phi2 (+ (* 1/2 (/ (* phi2 (- (+ (* 1/48 phi1) (* 1/16 phi1)) (* -1/4 (/ (* phi1 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 lambda1)) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 lambda1)) 2))))) (pow (sin (* 1/2 lambda1)) 2))))) (sin (* 1/2 lambda1)))) (* 1/2 (/ (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 lambda1)) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 lambda1)) 2)))) (sin (* 1/2 lambda1)))))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (sqrt (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))) (* 1/8 (* (* (pow lambda1 2) (cos phi2)) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))>
#<alt (+ (sqrt (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))) (* (pow lambda1 2) (+ (* 1/8 (* (cos phi2) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (* 1/2 (* (* (pow lambda1 2) (- (* -1/48 (cos phi2)) (* 1/64 (/ (pow (cos phi2) 2) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))))>
#<alt (+ (sqrt (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))) (* (pow lambda1 2) (+ (* 1/8 (* (cos phi2) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (* (pow lambda1 2) (+ (* 1/2 (* (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (- (* -1/48 (cos phi2)) (* 1/64 (/ (pow (cos phi2) 2) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* (pow lambda1 2) (- (* 1/1440 (cos phi2)) (* 1/8 (/ (* (cos phi2) (- (* -1/48 (cos phi2)) (* 1/64 (/ (pow (cos phi2) 2) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/8 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/8 (* (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/16 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 5))))))))))>
#<alt (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))>
#<alt (* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))))>
#<alt (* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))))))>
#<alt (* -1 (* (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sqrt -1) 2)))>
#<alt (* -1 (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))>
#<alt (* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2))))))>
#<alt (* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 3) (pow (sqrt -1) 4)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))))>
#<alt (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))>
#<alt (+ (sin (* -1/2 lambda2)) (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))))>
#<alt (+ (sin (* -1/2 lambda2)) (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (+ (* 1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))))))))>
#<alt (+ (sin (* -1/2 lambda2)) (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (+ (* 1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (+ (* -1/8 (sin (* 1/2 lambda2))) (* lambda1 (+ (* -1/48 (cos (* -1/2 lambda2))) (* -1/48 (cos (* 1/2 lambda2)))))))))))))>
#<alt (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))>
#<alt (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))>
#<alt (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))>
#<alt (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))>
#<alt (* 2 (sin (* 1/2 lambda1)))>
#<alt (+ (* 2 (sin (* 1/2 lambda1))) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))))>
#<alt (+ (* 2 (sin (* 1/2 lambda1))) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (+ (* -1/4 (* lambda2 (sin (* 1/2 lambda1)))) (* 1/2 (cos (* 1/2 lambda1)))))))>
#<alt (+ (* 2 (sin (* 1/2 lambda1))) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (+ (* 1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/4 (sin (* 1/2 lambda1))) (* lambda2 (+ (* -1/48 (cos (* 1/2 lambda1))) (* 1/48 (cos (* 1/2 lambda1)))))))))))>
#<alt (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))>
#<alt (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))>
#<alt (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))>
#<alt (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/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

351 calls:

Time	Variable		Point	Expression
114.0ms	lambda1	@	inf	(* (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
35.0ms	phi1	@	0	(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (+ (* (+ (sin (/ (- lambda1 lambda2) 2)) (sin (* 1/2 (+ lambda1 lambda2)))) 1/2) (- 0 (* (cos (/ lambda1 2)) (sin (/ lambda2 2))))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
17.0ms	phi1	@	0	(* (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) (sin (* -1/2 (- lambda2 lambda1)))) (sin (* 1/2 (- lambda2 lambda1))))) (pow (- (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2))))) (* R 2))
5.0ms	phi1	@	inf	(+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))
4.0ms	lambda1	@	0	(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (+ (* (+ (sin (/ (- lambda1 lambda2) 2)) (sin (* 1/2 (+ lambda1 lambda2)))) 1/2) (- 0 (* (cos (/ lambda1 2)) (sin (/ lambda2 2))))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))

rewrite372.0ms (0.8%)

Algorithm

1×	batch-egg-rewrite

Rules

3758×	`-lowering-.f32`
3758×	`-lowering-.f64`
2436×	`/-lowering-/.f32`
2436×	`/-lowering-/.f64`
1942×	`+-lowering-+.f64`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	128	1112
1	727	957
2	6980	957
0	8665	957

Stop Event

1×	iter limit
1×	node limit

Counts

35 → 373

Calls

Call 1

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

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

simplify1.1s (2.2%)

Algorithm

1×	egg-herbie

Rules

6622×	`-lowering-.f32`
6622×	`-lowering-.f64`
3796×	`+-lowering-+.f64`
3796×	`+-lowering-+.f32`
1962×	`*-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	1967	67279
1	6744	66995
0	8089	66995

Stop Event

1×	iter limit
1×	node limit

Counts

1404 → 1404

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) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (+ (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2)))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2)))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* -1/12 (sin (neg phi2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* 1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))) (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))))) (* 1/2 (* (* phi1 (- (* 1/12 (sin (neg phi2))) (* -1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))) (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))))))) (* 1/2 (* (* phi2 (- (* -1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (* 1/2 (* (* lambda1 (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))))))) (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (* 1/2 (* (* lambda2 (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))))))) (* 1/2 (* (* lambda2 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))
(+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/12 (* phi1 (sin (neg phi2))))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* -1/12 (* phi2 (sin phi1)))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))
(+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* lambda2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ 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)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* 1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -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)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (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)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (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 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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))) (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2)))))) (+ (* -1/16 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* -1/48 (cos (* -1/2 lambda2))) (* -1/48 (cos (* 1/2 lambda2))))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/48 (cos (* 1/2 lambda1))) (* 1/48 (cos (* 1/2 lambda1))))) (* -1/48 (cos (* 1/2 lambda1)))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) 2))) (- (+ 1 (* (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)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (+ (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (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)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (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)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2)))))) (+ (* -1/16 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* -1/48 (cos (* -1/2 lambda2))) (* -1/48 (cos (* 1/2 lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2))))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 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 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 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/8 (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/48 (cos (* 1/2 lambda1))) (* 1/48 (cos (* 1/2 lambda1))))) (* -1/48 (cos (* 1/2 lambda1))))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))))) (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(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 (- lambda2 lambda1)))
(sin (* -1/2 (- lambda2 lambda1)))
(sin (* -1/2 (- lambda2 lambda1)))
(sin (* -1/2 (- lambda2 lambda1)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* -1/2 (- lambda2 lambda1)))
(sin (* -1/2 (- lambda2 lambda1)))
(sin (* -1/2 (- lambda2 lambda1)))
(sin (* -1/2 (- lambda2 lambda1)))
(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 (- lambda2 lambda1)))
(sin (* 1/2 (- lambda2 lambda1)))
(sin (* 1/2 (- lambda2 lambda1)))
(sin (* 1/2 (- lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(sin (* 1/2 (- lambda2 lambda1)))
(sin (* 1/2 (- lambda2 lambda1)))
(sin (* 1/2 (- lambda2 lambda1)))
(sin (* 1/2 (- lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(pow (sin (* 1/2 phi1)) 2)
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (sin (* 1/2 phi2)) 2)
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(cos (neg 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)))
(+ 1/2 (* -1/2 (cos (neg phi2))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* 1/2 (* phi1 (sin (neg phi2))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* phi1 (+ (* 1/4 (* phi1 (cos (neg phi2)))) (* 1/2 (sin (neg phi2)))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* phi1 (+ (* 1/2 (sin (neg phi2))) (* phi1 (+ (* -1/12 (* phi1 (sin (neg phi2)))) (* 1/4 (cos (neg phi2)))))))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+ 1/2 (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+ 1/2 (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+ 1/2 (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+ 1/2 (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+ 1/2 (* -1/2 (cos phi1)))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* -1/2 (* phi2 (sin phi1)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/4 (* phi2 (cos phi1)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* phi2 (+ (* 1/12 (* phi2 (sin phi1))) (* 1/4 (cos phi1))))))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+ 1/2 (* -1/2 (cos (+ phi1 (* -1 phi2)))))
(+ 1/2 (* -1/2 (cos (+ phi1 (* -1 phi2)))))
(+ 1/2 (* -1/2 (cos (+ phi1 (* -1 phi2)))))
(+ 1/2 (* -1/2 (cos (+ phi1 (* -1 phi2)))))
(- (cos (neg lambda2)) 1)
(- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)
(- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)
(- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(- (cos lambda1) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)
(- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(cos (neg lambda2))
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(- (cos (neg lambda2)) 1)
(- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)
(- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)
(- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos lambda1) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)
(- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- 1 (cos (neg lambda2)))
(- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(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/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 lambda1))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/4 (/ (* phi1 phi2) (sin (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 lambda1)))) (* 1/2 (/ (* phi2 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 lambda1)) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 lambda1)) 2))))) (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 lambda1)))) (* phi2 (+ (* 1/2 (/ (* phi2 (- (+ (* 1/48 phi1) (* 1/16 phi1)) (* -1/4 (/ (* phi1 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 lambda1)) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 lambda1)) 2))))) (pow (sin (* 1/2 lambda1)) 2))))) (sin (* 1/2 lambda1)))) (* 1/2 (/ (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 lambda1)) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 lambda1)) 2)))) (sin (* 1/2 lambda1)))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (sqrt (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))) (* 1/8 (* (* (pow lambda1 2) (cos phi2)) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))
(+ (sqrt (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))) (* (pow lambda1 2) (+ (* 1/8 (* (cos phi2) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (* 1/2 (* (* (pow lambda1 2) (- (* -1/48 (cos phi2)) (* 1/64 (/ (pow (cos phi2) 2) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))))
(+ (sqrt (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))) (* (pow lambda1 2) (+ (* 1/8 (* (cos phi2) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (* (pow lambda1 2) (+ (* 1/2 (* (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (- (* -1/48 (cos phi2)) (* 1/64 (/ (pow (cos phi2) 2) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* (pow lambda1 2) (- (* 1/1440 (cos phi2)) (* 1/8 (/ (* (cos phi2) (- (* -1/48 (cos phi2)) (* 1/64 (/ (pow (cos phi2) 2) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/8 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/8 (* (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/16 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 5))))))))))
(sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(* -1 (* (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sqrt -1) 2)))
(* -1 (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))
(* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2))))))
(* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 3) (pow (sqrt -1) 4)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))))
(+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))
(+ (sin (* -1/2 lambda2)) (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))))
(+ (sin (* -1/2 lambda2)) (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (+ (* 1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))))))))
(+ (sin (* -1/2 lambda2)) (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (+ (* 1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (+ (* -1/8 (sin (* 1/2 lambda2))) (* lambda1 (+ (* -1/48 (cos (* -1/2 lambda2))) (* -1/48 (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 (+ 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 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))
(+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))
(* 2 (sin (* 1/2 lambda1)))
(+ (* 2 (sin (* 1/2 lambda1))) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))))
(+ (* 2 (sin (* 1/2 lambda1))) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (+ (* -1/4 (* lambda2 (sin (* 1/2 lambda1)))) (* 1/2 (cos (* 1/2 lambda1)))))))
(+ (* 2 (sin (* 1/2 lambda1))) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (+ (* 1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/4 (sin (* 1/2 lambda1))) (* lambda2 (+ (* -1/48 (cos (* 1/2 lambda1))) (* 1/48 (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 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 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))
(+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))

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) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.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 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 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 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (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))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (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))))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (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)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (+ (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (+.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (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))))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (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))))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))
(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 lambda2 lambda1)))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+.f64 (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 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(+.f64 (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 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (-.f64 (-.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 lambda2 lambda1))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (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 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 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 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (-.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 lambda2 lambda1))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 (.f64 #s(literal 1/2 binary64) (-.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 lambda2 lambda1))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.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 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.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 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/16 binary64)) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/48 binary64)) (.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 #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 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #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 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))) (.f64 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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/48 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #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 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #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 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (-.f64 (.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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #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 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 phi1 (+.f64 (.f64 phi1 (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 (neg.f64 phi1) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))) (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (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 lambda2 lambda1)))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.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 lambda2 lambda1)))) (.f64 (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1)))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.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 lambda2 lambda1)))) (.f64 phi2 (+.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (+ (* -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 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (sin (* 1/2 phi1)) 2))
(-.f64 (+.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (.f64 (-.f64 #s(literal 0 binary64) phi2) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 #s(literal 1 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.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 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))))) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/16 binary64)) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/48 binary64)) (.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))))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/48 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1/12 binary64)))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda2 lambda1))) (sin (* 1/2 (- lambda2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi1 (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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2)))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (.f64 phi1 (+.f64 (.f64 (.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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (+.f64 (/.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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi2) #s(literal 1/4 binary64))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2)))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* -1/12 (sin (neg phi2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (.f64 phi1 (+.f64 (.f64 (.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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (+.f64 (/.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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi2) #s(literal 1/4 binary64)))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal -1/12 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (+.f64 (/.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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (*.f64 (cos.f64 phi2) #s(literal 1/4 binary64)))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (+.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi1) #s(literal 1/4 binary64))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* 1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (+.f64 (.f64 (sin.f64 phi1) #s(literal 1/12 binary64)) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sin.f64 phi1) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (+.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi1) #s(literal 1/4 binary64)))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))))) (.f64 #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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (+.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))) (*.f64 (cos.f64 phi1) #s(literal 1/4 binary64)))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.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 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (/.f64 (.f64 #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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (+.f64 (.f64 #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 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)) #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 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (/.f64 (.f64 #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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.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 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (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/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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (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/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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (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/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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (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/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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (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/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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (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/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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (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/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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (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/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 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi1 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))) (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))))) (* 1/2 (* (* phi1 (- (* 1/12 (sin (neg phi2))) (* -1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (.f64 phi1 (.f64 (-.f64 (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 1/12 binary64)) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))) (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))))))) (* 1/2 (* (* phi2 (- (* -1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (.f64 phi2 (.f64 (+.f64 (.f64 #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 lambda1 lambda2)) #s(literal -1 binary64))))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.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 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (* 1/2 (* (* lambda1 (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))) (.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 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))))))) (.f64 lambda1 (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))))))) (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))) (.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 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))))))) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))))) (.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 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))) (.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 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (* 1/2 (* (* lambda2 (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))) (.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 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))))) (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))))))) (* 1/2 (* (* lambda2 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))) (.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 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))))) (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))))))) (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (.f64 phi1 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/12 (* phi1 (sin (neg phi2))))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 (*.f64 #s(literal 1/12 binary64) phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* -1/12 (* phi2 (sin phi1)))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 #s(literal -1/12 binary64) (*.f64 phi2 (sin.f64 phi1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))
(+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 (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))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* lambda2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 #s(literal -1/12 binary64) lambda2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 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) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))
(+.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 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 #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 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 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) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (+.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 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/6 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 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (+.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) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 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) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* 1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 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 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (-.f64 (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 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 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 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 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (+.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 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 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 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 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.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 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.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)))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.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)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.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 (.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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.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)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.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 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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/48 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #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 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.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 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.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 (.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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.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))))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (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)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.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 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/16 binary64)) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/48 binary64)) (.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 #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 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 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 #s(literal 1 binary64) (.f64 (neg.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) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (.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 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (* (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 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 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.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 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 phi2 (+.f64 (.f64 phi2 (-.f64 (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 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 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (.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 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 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 (* (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.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))))
(- (+ 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) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.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))))
(- (+ 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 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 #s(literal -1/48 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1/12 binary64)))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (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 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.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 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))))) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/16 binary64)) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/48 binary64)) (.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)))))))))))) (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (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 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))))
(sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))) (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (+.f64 (.f64 (.f64 (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 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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)))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal -1/8 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2)))))) (+ (* -1/16 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* -1/48 (cos (* -1/2 lambda2))) (* -1/48 (cos (* 1/2 lambda2))))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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 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/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 (.f64 #s(literal 1/48 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/48 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 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 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal -1/8 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal -1/8 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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))))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.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 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 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/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.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 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/48 (cos (* 1/2 lambda1))) (* 1/48 (cos (* 1/2 lambda1))))) (* -1/48 (cos (* 1/2 lambda1)))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) 2))) (- (+ 1 (* (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)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) 2))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.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 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.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 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/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 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) #s(literal -1/8 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (+.f64 (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/16 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/48 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 1/48 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 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 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) (.f64 (sin.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 #s(literal -1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 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/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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)))))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))
(-.f64 (+.f64 (+.f64 #s(literal 1 binary64) (.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) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.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 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))
(-.f64 (+.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (.f64 phi2 (+.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #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 #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))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (.f64 (-.f64 #s(literal 0 binary64) phi2) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #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 #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 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.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))))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (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) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (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) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal -1/8 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/8 binary64) (sin.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))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2)))))) (+ (* -1/16 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* -1/48 (cos (* -1/2 lambda2))) (* -1/48 (cos (* 1/2 lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))) (+ (* -1/8 (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))) (* -1/8 (sin (* 1/2 lambda2))))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (sin (* 1/2 lambda2))))) (* 1/2 (* (sin (* 1/2 lambda2)) (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2))))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda2)) (- (* 1/2 (+ (sin (* -1/2 lambda2)) (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) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal -1/8 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 (.f64 #s(literal 1/48 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/48 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* 1/2 (+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 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/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/48 (cos (* 1/2 lambda1))) (* 1/48 (cos (* 1/2 lambda1))))) (* -1/48 (cos (* 1/2 lambda1))))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1))))))))))) (* (cos phi1) (* (cos phi2) (+ (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (* (sin (* -1/2 lambda1)) (- (* 1/2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))) (* 1/2 (cos (* 1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 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/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) #s(literal -1/8 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (+.f64 (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/16 binary64)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/48 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 1/48 binary64))))))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) lambda2)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.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))))
(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 (- lambda2 lambda1)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda2 lambda1)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda2 lambda1)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda2 lambda1)))
(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 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 (.f64 (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 (- lambda2 lambda1)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda2 lambda1)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda2 lambda1)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda2 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 (+ 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/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) #s(literal -1/8 binary64)) (.f64 (.f64 #s(literal -1/48 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda2 lambda1)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (- lambda2 lambda1)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (- lambda2 lambda1)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (- lambda2 lambda1)))
(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 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 lambda2))
(sin.f64 (*.f64 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/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 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 (.f64 #s(literal -1/8 binary64) lambda1) (sin.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 (- lambda2 lambda1)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (- lambda2 lambda1)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (- lambda2 lambda1)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (- lambda2 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 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(pow (sin (* 1/2 phi1)) 2)
(pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi2 (+.f64 (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 #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/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi2 (+.f64 (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/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))))))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (sin (* 1/2 phi2)) 2)
(pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 phi1) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi1 (+.f64 (neg.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 phi1 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 phi1 (+.f64 (neg.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 phi1 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 phi1 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)))))))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(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 #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 (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)))
(cos (neg lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 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 #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))
(+ 1/2 (* -1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* 1/2 (* phi1 (sin (neg phi2))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (-.f64 #s(literal 0 binary64) phi2)))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* phi1 (+ (* 1/4 (* phi1 (cos (neg phi2)))) (* 1/2 (sin (neg phi2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 (cos.f64 phi2))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* phi1 (+ (* 1/2 (sin (neg phi2))) (* phi1 (+ (* -1/12 (* phi1 (sin (neg phi2)))) (* 1/4 (cos (neg phi2)))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (.f64 phi1 (+.f64 (.f64 (cos.f64 phi2) #s(literal 1/4 binary64)) (.f64 (*.f64 #s(literal -1/12 binary64) phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2)))))))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(+ 1/2 (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))
(+ 1/2 (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))
(+ 1/2 (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))
(+ 1/2 (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))
(+ 1/2 (* -1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* -1/2 (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 phi2 (sin.f64 phi1)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/4 (* phi2 (cos phi1)))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) phi2))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* phi2 (+ (* 1/12 (* phi2 (sin phi1))) (* 1/4 (cos phi1))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) #s(literal 1/4 binary64)) (.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal 1/12 binary64)))))))
(+ 1/2 (* -1/2 (cos (- phi1 phi2))))
(+.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 (neg (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos lambda1) 1)
(+.f64 (cos.f64 lambda1) #s(literal -1 binary64))
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(+.f64 (cos.f64 lambda1) (-.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal 1 binary64)))
(- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)
(+.f64 (cos.f64 lambda1) (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal 1 binary64) (sin.f64 lambda1)))) #s(literal 1 binary64)))
(- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)
(+.f64 (cos.f64 lambda1) (-.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (.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))
(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 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal 1 binary64) (sin.f64 lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (.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))
(- (cos (neg lambda2)) 1)
(+.f64 (cos.f64 lambda2) #s(literal -1 binary64))
(- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)
(+.f64 (cos.f64 lambda2) (-.f64 (*.f64 (neg.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) #s(literal 1 binary64)))
(- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)
(+.f64 (cos.f64 lambda2) (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))) #s(literal 1 binary64)))
(- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)
(+.f64 (cos.f64 lambda2) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))) #s(literal 1 binary64)))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos lambda1) 1)
(+.f64 (cos.f64 lambda1) #s(literal -1 binary64))
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(+.f64 (cos.f64 lambda1) (-.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal 1 binary64)))
(- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)
(+.f64 (cos.f64 lambda1) (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal 1 binary64) (sin.f64 lambda1)))) #s(literal 1 binary64)))
(- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)
(+.f64 (cos.f64 lambda1) (-.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (.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 lambda2 lambda1)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos lambda1))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1)))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))
(-.f64 (+.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)))
(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 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 phi2 (+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64)) (.f64 (.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(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/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 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 (.f64 #s(literal -1/8 binary64) lambda1) (sin.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/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) #s(literal -1/8 binary64)) (.f64 (.f64 #s(literal -1/48 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 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))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(+ (sin (* 1/2 lambda1)) (* -1/4 (/ (* phi1 phi2) (sin (* 1/2 lambda1)))))
(+.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi1 phi2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+ (sin (* 1/2 lambda1)) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 lambda1)))) (* 1/2 (/ (* phi2 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 lambda1)) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 lambda1)) 2))))) (sin (* 1/2 lambda1)))))))
(+.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) phi1) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))
(+ (sin (* 1/2 lambda1)) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 lambda1)))) (* phi2 (+ (* 1/2 (/ (* phi2 (- (+ (* 1/48 phi1) (* 1/16 phi1)) (* -1/4 (/ (* phi1 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 lambda1)) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 lambda1)) 2))))) (pow (sin (* 1/2 lambda1)) 2))))) (sin (* 1/2 lambda1)))) (* 1/2 (/ (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 lambda1)) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 lambda1)) 2)))) (sin (* 1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) phi1) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (.f64 phi2 (+.f64 (.f64 phi1 #s(literal 1/12 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) (pow.f64 (sin.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)))))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (/.f64 (-.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(sqrt.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+ (sqrt (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))) (* 1/8 (* (* (pow lambda1 2) (cos phi2)) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))
(+.f64 (sqrt.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 phi2) (.f64 lambda1 lambda1))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(+ (sqrt (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))) (* (pow lambda1 2) (+ (* 1/8 (* (cos phi2) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (* 1/2 (* (* (pow lambda1 2) (- (* -1/48 (cos phi2)) (* 1/64 (/ (pow (cos phi2) 2) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))))
(+.f64 (sqrt.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 #s(literal 1/8 binary64) (cos.f64 phi2)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (cos.f64 phi2) #s(literal -1/48 binary64)) (/.f64 (.f64 #s(literal 1/64 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))))))))))
(+ (sqrt (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))) (* (pow lambda1 2) (+ (* 1/8 (* (cos phi2) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (* (pow lambda1 2) (+ (* 1/2 (* (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (- (* -1/48 (cos phi2)) (* 1/64 (/ (pow (cos phi2) 2) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* (pow lambda1 2) (- (* 1/1440 (cos phi2)) (* 1/8 (/ (* (cos phi2) (- (* -1/48 (cos phi2)) (* 1/64 (/ (pow (cos phi2) 2) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))) (sqrt (/ 1 (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))))))
(+.f64 (sqrt.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 #s(literal 1/8 binary64) (cos.f64 phi2)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (.f64 (.f64 lambda1 lambda1) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (-.f64 (.f64 (cos.f64 phi2) #s(literal -1/48 binary64)) (/.f64 (.f64 #s(literal 1/64 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))))) (.f64 (.f64 lambda1 lambda1) (.f64 (+.f64 (.f64 (cos.f64 phi2) #s(literal 1/1440 binary64)) (.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi2) (/.f64 (-.f64 (.f64 (cos.f64 phi2) #s(literal -1/48 binary64)) (/.f64 (.f64 #s(literal 1/64 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 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))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 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 (.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 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)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/8 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.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 phi1 (+.f64 (.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 (.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))) #s(literal 3 binary64))))) (.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 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)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/8 (* (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/16 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 5))))))))))
(+.f64 (sqrt.f64 (+.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 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 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 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 (.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))) #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 (.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))) #s(literal 5 binary64))))))))))
(sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))
(sqrt.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(.f64 phi1 (+.f64 (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 (.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))) (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))))))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(.f64 phi1 (+.f64 (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/2 binary64) (.f64 (+.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))) (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/8 binary64) (.f64 (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))))) (pow.f64 (+.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))) #s(literal 2 binary64)))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 phi1 (+.f64 (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) (.f64 (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))))) (pow.f64 (+.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))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.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))) (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/16 binary64) (.f64 (pow.f64 (+.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))) #s(literal 3 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 phi1 #s(literal 7 binary64)) (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)))))))))))
(* -1 (* (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sqrt -1) 2)))
(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)))))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))))
(* -1 (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))
(.f64 (neg.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.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))) (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 (sqrt.f64 (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) phi1)) (pow.f64 (sqrt.f64 #s(literal -1 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))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2))))))
(.f64 (neg.f64 phi1) (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.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))) (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 (sqrt.f64 (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) phi1)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal -1/8 binary64) (.f64 (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 (.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))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 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))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)) 3) (pow (sqrt -1) 4)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))))
(.f64 (neg.f64 phi1) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (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 (.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))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))))) (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.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))) (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 (sqrt.f64 (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) phi1)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (+.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))) #s(literal 3 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 phi1 #s(literal 7 binary64)) (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)))))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 4 binary64)))))))
(+ (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* 1/2 (cos (* 1/2 lambda2)))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))
(+ (sin (* -1/2 lambda2)) (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (+ (* 1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/8 (sin (* 1/2 lambda2))))))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 lambda1 (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))))
(+ (sin (* -1/2 lambda2)) (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (+ (* 1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (+ (* -1/8 (sin (* 1/2 lambda2))) (* lambda1 (+ (* -1/48 (cos (* -1/2 lambda2))) (* -1/48 (cos (* 1/2 lambda2)))))))))))))
(+.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 lambda1 (.f64 #s(literal -1/48 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))))))
(+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (*.f64 #s(literal 1 binary64) lambda1)))))
(+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (*.f64 #s(literal 1 binary64) lambda1)))))
(+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (*.f64 #s(literal 1 binary64) lambda1)))))
(+ (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (- lambda2 (* -1 lambda1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (*.f64 #s(literal 1 binary64) lambda1)))))
(* 2 (sin (* 1/2 lambda1)))
(.f64 #s(literal 2 binary64) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))
(+ (* 2 (sin (* 1/2 lambda1))) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* 1/2 (cos (* 1/2 lambda1))))))
(+.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 lambda2 (.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64))))
(+ (* 2 (sin (* 1/2 lambda1))) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (+ (* -1/4 (* lambda2 (sin (* 1/2 lambda1)))) (* 1/2 (cos (* 1/2 lambda1)))))))
(+.f64 (.f64 #s(literal 2 binary64) (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/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/4 binary64) lambda2) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))
(+ (* 2 (sin (* 1/2 lambda1))) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (+ (* 1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/4 (sin (* 1/2 lambda1))) (* lambda2 (+ (* -1/48 (cos (* 1/2 lambda1))) (* 1/48 (cos (* 1/2 lambda1)))))))))))
(+.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 lambda2 (+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 lambda2 (.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 0 binary64))))))))
(+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(+ (sin (* 1/2 (+ lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (*.f64 #s(literal 1 binary64) lambda2)))))
(+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (*.f64 #s(literal 1 binary64) lambda2)))))
(+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (*.f64 #s(literal 1 binary64) lambda2)))))
(+ (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (- lambda1 (* -1 lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (*.f64 #s(literal 1 binary64) lambda2)))))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 (.f64 (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)))

eval686.0ms (1.4%)

Compiler: Compiled 163906 to 6468 computations (96.1% saved)

prune1.7s (3.4%)

Pruning

232 alts after pruning (231 fresh and 1 done)

	Pruned	Kept	Total
New	1999	94	2093
Fresh	47	137	184
Picked	4	1	5
Done	0	0	0
Total	2050	232	2282

Accuracy

79.3%

Counts

2282 → 232

Alt Table

Click to see full alt table

Status	Accuracy	Program
	57.5%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.2%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 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.5%	(.f64 (atan2.f64 (pow.f64 (exp.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) #s(literal 1/2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	58.3%	(.f64 (atan2.f64 (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) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #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)))
	57.5%	(.f64 (atan2.f64 (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)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	33.4%	(.f64 (atan2.f64 (+.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (.f64 phi2 (sqrt.f64 #s(literal 1/8 binary64))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (+.f64 (.f64 #s(literal -4 binary64) (sin.f64 phi1)) (.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	38.6%	(.f64 (atan2.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	33.5%	(.f64 (atan2.f64 (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.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 #s(literal -1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	13.6%	(.f64 (atan2.f64 (+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	11.2%	(.f64 (atan2.f64 (+.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi1 phi2)) (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)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	14.9%	(.f64 (atan2.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi1 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	27.8%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	27.5%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 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)))
	58.0%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (+.f64 (.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 lambda2 lambda1))))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (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 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	39.7%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/8 binary64)) (sqrt.f64 (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.7%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	28.0%	(.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.7%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 #s(literal 8 binary64) (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) (.f64 #s(literal -2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	46.0%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.1%	(.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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	54.2%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.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 (fma.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	51.1%	(.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 (fma.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (.f64 (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))))))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.5%	(.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 (fma.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	40.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 (fma.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	57.2%	(.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 (fma.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	36.3%	(.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 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	43.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 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	41.3%	(.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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.3%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.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 (-.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (.f64 R #s(literal 2 binary64)))
	42.5%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi2)) #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)))
	37.2%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #s(literal 4 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
	37.0%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	37.9%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	36.0%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	37.9%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	30.5%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	24.8%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	37.0%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	29.1%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 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)))
	29.1%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #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 #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)))
	27.9%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 phi1)) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	43.5%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (/.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.6%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 R #s(literal 2 binary64)))
	62.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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)))
	59.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	59.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	75.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	64.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/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)) #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 R #s(literal 2 binary64)))
	64.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	63.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 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	77.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	72.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	36.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	60.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 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 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	62.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.6%	(.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
	51.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.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 #s(literal 1/2 binary64) (cos.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 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))))) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	40.6%	(.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (+.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 lambda2 lambda1)))) (.f64 (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	50.5%	(.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	51.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 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 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	47.1%	(.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) (-.f64 lambda2 lambda1))) #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 lambda2 lambda1)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	47.8%	(.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (+.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.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	47.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (+.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.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	60.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
✓	77.0%	(.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	51.2%	(.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	46.6%	(.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	68.0%	(.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))))))))) (.f64 R #s(literal 2 binary64)))
	57.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	61.2%	(.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	48.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	43.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
	61.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 (.f64 (cos.f64 phi1) (cos.f64 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 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 R #s(literal 2 binary64)))
	43.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
	38.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
	46.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 (.f64 (cos.f64 phi1) (cos.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/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))))))) (.f64 R #s(literal 2 binary64)))
	48.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.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/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
	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 (.f64 (cos.f64 phi1) (cos.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/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
	46.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (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)))
	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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	59.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	63.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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	63.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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	43.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	49.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.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 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	62.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	49.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 #s(literal -1/2 binary64) phi2)) #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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 #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)))
	48.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	49.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	46.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.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 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	36.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	46.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 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)))
	41.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	41.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	24.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 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))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.4%	(.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 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	57.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(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.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 (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)))
	39.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 (cos.f64 lambda2) (.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	58.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 (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)))
	39.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (-.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	58.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	38.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (+.f64 (cos.f64 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)))
	43.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 (cos.f64 lambda2) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	44.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(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)))
	59.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 -2 binary64) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	36.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	38.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	42.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	57.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (.f64 R #s(literal 2 binary64)))
	42.2%	(.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)))
	36.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	64.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.6%	(.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 #s(literal 1 binary64) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (.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 R #s(literal 2 binary64)))
	43.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
	45.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	42.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	43.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	45.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	33.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	33.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	48.6%	(.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)))
	45.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))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
	42.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 (+.f64 (+.f64 #s(literal 1 binary64) (.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) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	42.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))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	21.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))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.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))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (+.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	35.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (.f64 lambda2 #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)))
	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))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	40.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	19.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (+.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 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
	33.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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)))
	28.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.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.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	30.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (/.f64 #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 (cos.f64 (/.f64 phi1 #s(literal 2 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))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	33.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	23.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.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 R #s(literal 2 binary64)))
	33.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	32.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	32.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64))))))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 R #s(literal 2 binary64)))
	44.6%	(.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	39.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	41.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.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 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
	42.4%	(.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)))
	43.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	19.0%	(.f64 (atan2.f64 (sqrt.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	21.4%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi2) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.3%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	36.1%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 phi2 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal -4 binary64)))) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	42.6%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/8 binary64) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	39.6%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/8 binary64) (.f64 #s(literal 4 binary64) (+.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (cos.f64 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	6.0%	(.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (.f64 lambda2 (.f64 lambda2 lambda2))) (.f64 #s(literal 2 binary64) (+.f64 (.f64 lambda1 lambda1) (.f64 lambda2 (+.f64 lambda1 lambda2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	8.9%	(.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	15.5%	(.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 #s(literal 2 binary64) R))
	15.1%	(.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	13.2%	(.f64 (atan2.f64 (sin.f64 (.f64 lambda2 (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) lambda1) lambda2) #s(literal -1/2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	11.2%	(.f64 (atan2.f64 (sin.f64 (.f64 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)))
	10.9%	(.f64 (atan2.f64 (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)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	15.3%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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)))
	9.3%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	15.4%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	13.3%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	15.8%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	12.4%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	13.9%	(.f64 (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	57.6%	(.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)))
	15.3%	(.f64 (.f64 R (atan2.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	12.1%	(.f64 (.f64 R (atan2.f64 (+.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))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	11.5%	(.f64 (.f64 R (atan2.f64 (+.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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	11.9%	(.f64 (.f64 R (atan2.f64 (+.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))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	13.6%	(.f64 (.f64 R (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	13.0%	(.f64 (.f64 R (atan2.f64 (+.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)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	14.2%	(.f64 (.f64 R (atan2.f64 (.f64 (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))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	11.3%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) #s(literal 2 binary64))
	12.6%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi2) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 2 binary64))
	15.5%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	15.4%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(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)))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	15.8%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	15.8%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (/.f64 (-.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)))) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	15.8%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	10.9%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	9.1%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.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 -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	7.9%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (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))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	9.2%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1))) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	15.5%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64))
	15.5%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (/.f64 (-.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64))
	15.5%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))) #s(literal 2 binary64))
	11.4%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 (cos.f64 phi2))) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))))))))))) #s(literal 2 binary64))
	11.3%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) #s(literal 1/4 binary64)) (.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal 1/12 binary64)))))))))))) #s(literal 2 binary64))
	15.6%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 (.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) #s(literal 2 binary64))
	12.9%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (-.f64 #s(literal 0 binary64) phi2)))))))))) #s(literal 2 binary64))
	11.7%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (.f64 phi1 (+.f64 (.f64 (cos.f64 phi2) #s(literal 1/4 binary64)) (.f64 (*.f64 #s(literal -1/12 binary64) phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2)))))))))))))) #s(literal 2 binary64))
	11.0%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) phi2))))))))))) #s(literal 2 binary64))
	15.4%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	15.3%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	12.9%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 (sin.f64 phi1)))))))))) #s(literal 2 binary64))
	15.5%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))))) #s(literal 2 binary64))
	12.6%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	15.5%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 (+.f64 #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)))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	15.5%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))) #s(literal 2 binary64))
	15.4%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))) #s(literal 2 binary64))
	14.2%	(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
	10.9%	(.f64 (.f64 R (atan2.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	11.2%	(.f64 (.f64 R (atan2.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	14.1%	(.f64 (.f64 R (atan2.f64 (exp.f64 (.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
	15.5%	(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
	63.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 (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.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) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))
	63.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
	50.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.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 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Compiler

Compiled 45403 to 12880 computations (71.6% saved)

regimes2.2s (4.5%)

Counts

363 → 1

Calls

Call 1

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

Outputs

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

Calls

12 calls:

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

Results

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

Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.9s (3.9%)

Counts

301 → 3

Calls

Call 1

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

Outputs

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

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

Calls

12 calls:

155.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))))))))
132.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)))))))))
121.0ms	lambda1
118.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)))))
113.0ms	phi2

Results

Accuracy	Segments	Branch
69.2%	3	`phi2`
71.7%	3	`phi1`
65.7%	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))))))))))
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))))))))
64.1%	1	`R`
76.9%	3	`lambda2`
66.4%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
76.9%	3	`lambda1`
70.2%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
69.6%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
69.6%	3	`(-.f64 lambda1 lambda2)`

Compiler

Compiled 296 to 142 computations (52% saved)

regimes651.0ms (1.3%)

Counts

300 → 3

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

121.0ms

lambda2

Results

Accuracy	Segments	Branch
76.9%	3	`lambda2`

Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes774.0ms (1.6%)

Counts

299 → 3

Calls

Call 1

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

Outputs

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

Calls

2 calls:

137.0ms	lambda2
105.0ms	lambda1

Results

Accuracy	Segments	Branch
70.4%	3	`lambda1`
74.1%	3	`lambda2`

Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes1.6s (3.2%)

Counts

298 → 1

Calls

Call 1

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

Outputs

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

Calls

11 calls:

155.0ms	(-.f64 lambda1 lambda2)
138.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
122.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)))))))))
121.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))))))))))
120.0ms	phi1

Results

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

Compiler

Compiled 290 to 137 computations (52.8% saved)

regimes1.2s (2.5%)

Counts

215 → 1

Calls

Call 1

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

Calls

12 calls:

108.0ms	(-.f64 lambda1 lambda2)
107.0ms	R
94.0ms	phi1
90.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
86.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

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

Compiler

Compiled 296 to 142 computations (52% saved)

regimes533.0ms (1.1%)

Counts

154 → 1

Calls

Call 1

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

Outputs

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

Calls

6 calls:

83.0ms	lambda1
67.0ms	R
63.0ms	phi1
57.0ms	phi2
55.0ms	lambda2

Results

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

Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes414.0ms (0.8%)

Counts

128 → 1

Calls

Call 1

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

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

6 calls:

56.0ms	lambda1
50.0ms	(-.f64 lambda1 lambda2)
49.0ms	lambda2
42.0ms	phi2
35.0ms	R

Results

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

Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes294.0ms (0.6%)

Counts

121 → 1

Calls

Call 1

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

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

Calls

6 calls:

42.0ms	phi1
41.0ms	lambda2
36.0ms	(-.f64 lambda1 lambda2)
33.0ms	lambda1
32.0ms	phi2

Results

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

Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes341.0ms (0.7%)

Counts

96 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

6 calls:

57.0ms	(-.f64 lambda1 lambda2)
47.0ms	lambda2
31.0ms	phi1
30.0ms	lambda1
29.0ms	R

Results

Accuracy	Segments	Branch
58.3%	1	`R`
61.8%	3	`(-.f64 lambda1 lambda2)`
61.8%	3	`lambda1`
61.8%	3	`phi1`
61.9%	3	`phi2`
58.3%	1	`lambda2`

Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes94.0ms (0.2%)

Counts

95 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

27.0ms

phi2

Results

Accuracy	Segments	Branch
61.8%	3	`phi2`

Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes158.0ms (0.3%)

Counts

84 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

4 calls:

28.0ms	(-.f64 lambda1 lambda2)
24.0ms	lambda1
23.0ms	phi1
23.0ms	phi2

Results

Accuracy	Segments	Branch
57.7%	1	`lambda1`
61.5%	3	`phi1`
57.7%	1	`(-.f64 lambda1 lambda2)`
61.7%	3	`phi2`

Compiler

Compiled 26 to 21 computations (19.2% saved)

regimes96.0ms (0.2%)

Counts

68 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

20.0ms

phi2

Results

Accuracy	Segments	Branch
61.6%	3	`phi2`

Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes63.0ms (0.1%)

Counts

67 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

20.0ms

phi2

Results

Accuracy	Segments	Branch
61.5%	3	`phi2`

Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes93.0ms (0.2%)

Counts

66 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

19.0ms

phi2

Results

Accuracy	Segments	Branch
61.5%	3	`phi2`

Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes195.0ms (0.4%)

Counts

65 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

6 calls:

35.0ms	phi2
29.0ms	(-.f64 lambda1 lambda2)
17.0ms	lambda2
17.0ms	phi1
17.0ms	lambda1

Results

Accuracy	Segments	Branch
44.6%	1	`lambda1`
44.6%	1	`(-.f64 lambda1 lambda2)`
58.0%	3	`phi1`
46.2%	2	`R`
44.6%	1	`lambda2`
58.0%	3	`phi2`

Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes185.0ms (0.4%)

Counts

56 → 1

Calls

Call 1

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

Outputs

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

Calls

6 calls:

34.0ms	(-.f64 lambda1 lambda2)
26.0ms	lambda1
16.0ms	phi2
15.0ms	R
15.0ms	phi1

Results

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

Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes163.0ms (0.3%)

Counts

55 → 1

Calls

Call 1

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

Outputs

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

Calls

6 calls:

49.0ms	R
18.0ms	lambda1
17.0ms	(-.f64 lambda1 lambda2)
16.0ms	lambda2
15.0ms	phi1

Results

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

Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes125.0ms (0.3%)

Counts

46 → 1

Calls

Call 1

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

Calls

6 calls:

43.0ms	R
24.0ms	phi1
12.0ms	lambda2
12.0ms	(-.f64 lambda1 lambda2)
12.0ms	lambda1

Results

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

Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes14.0ms (0%)

Counts

4 → 1

Calls

Call 1

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

Outputs

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

Calls

6 calls:

2.0ms	(-.f64 lambda1 lambda2)
2.0ms	lambda2
2.0ms	lambda1
2.0ms	R
2.0ms	phi1

Results

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

Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes13.0ms (0%)

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

Outputs

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

Calls

6 calls:

1.0ms	lambda2
1.0ms	(-.f64 lambda1 lambda2)
1.0ms	phi1
1.0ms	R
1.0ms	lambda1

Results

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

Compiler

Compiled 38 to 31 computations (18.4% saved)

bsearch275.0ms (0.6%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
142.0ms	3.8630281883187954e+23	3.0503837213314668e+29
113.0ms	-4824238001.50709	-170925787.18120152

Results

212.0ms	231×	1	valid
6.0ms	25×	0	valid

Compiler

Compiled 2926 to 1409 computations (51.8% saved)

Precisions

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

ival-sin: 53.0ms (27.1% of total)

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

ival-add: 26.0ms (13.3% of total)

ival-pow: 21.0ms (10.7% of total)

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

ival-sqrt: 18.0ms (9.2% of total)

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

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

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

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

const: 1.0ms (0.5% of total)

bsearch290.0ms (0.6%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
132.0ms	3.8630281883187954e+23	3.0503837213314668e+29
113.0ms	-170925787.18120152	-0.00010928437876920008

Results

222.0ms	269×	1	valid
8.0ms	35×	0	valid

Compiler

Compiled 3422 to 1667 computations (51.3% saved)

Precisions

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

ival-sin: 45.0ms (25% of total)

ival-sub: 32.0ms (17.8% of total)

ival-mult: 31.0ms (17.2% of total)

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

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

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

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

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

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

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

const: 1.0ms (0.6% of total)

bsearch220.0ms (0.4%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
114.0ms	3.8630281883187954e+23	3.0503837213314668e+29
80.0ms	-4824238001.50709	-170925787.18120152

Results

176.0ms	233×	1	valid
6.0ms	23×	0	valid

Compiler

Compiled 2926 to 1617 computations (44.7% saved)

Precisions

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

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

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

ival-div: 27.0ms (17.1% of total)

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

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

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

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

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

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

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

const: 1.0ms (0.6% of total)

bsearch181.0ms (0.4%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
70.0ms	2.7819294788111693e-9	1.2625418209906513e-6
98.0ms	-12.595483886311637	-0.21724533818816466

Results

145.0ms	187×	1	valid
11.0ms	53×	0	valid

Compiler

Compiled 1981 to 1243 computations (37.3% saved)

Precisions

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

ival-sqrt: 26.0ms (19% of total)

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

ival-cos: 20.0ms (14.6% of total)

ival-mult: 19.0ms (13.9% of total)

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

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

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

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

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

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

const: 1.0ms (0.7% of total)

bsearch148.0ms (0.3%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
48.0ms	1.2625418209906513e-6	4.706439439378112e-6
69.0ms	-12.595483886311637	-0.21724533818816466

Results

102.0ms	160×	1	valid
7.0ms	32×	0	valid

Compiler

Compiled 1501 to 946 computations (37% saved)

Precisions

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

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

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

ival-mult: 13.0ms (14.1% of total)

ival-sub: 6.0ms (6.5% of total)

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

backward-pass: 5.0ms (5.4% of total)

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

ival-pow: 4.0ms (4.4% of total)

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

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

const: 1.0ms (1.1% of total)

bsearch595.0ms (1.2%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
96.0ms	2.7819294788111693e-9	1.2625418209906513e-6
465.0ms	-12.595483886311637	-0.21724533818816466

Results

512.0ms	189×	1	valid
38.0ms	51×	0	valid

Compiler

Compiled 1764 to 1111 computations (37% saved)

Precisions

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

ival-mult: 52.0ms (35.5% of total)

ival-sin: 26.0ms (17.8% of total)

ival-cos: 20.0ms (13.7% of total)

ival-pow: 14.0ms (9.6% of total)

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

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

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

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

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

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

const: 1.0ms (0.7% of total)

bsearch623.0ms (1.3%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
514.0ms	2.7819294788111693e-9	1.2625418209906513e-6
94.0ms	-12.595483886311637	-0.21724533818816466

Results

176.0ms	197×	1	valid
9.0ms	43×	0	valid

Compiler

Compiled 1764 to 1103 computations (37.5% saved)

Precisions

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

ival-sub: 56.0ms (34.1% of total)

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

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

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

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

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

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

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

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

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

const: 1.0ms (0.6% of total)

bsearch173.0ms (0.4%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
93.0ms	1.2625418209906513e-6	4.706439439378112e-6
70.0ms	-12.595483886311637	-0.21724533818816466

Results

147.0ms	157×	1	valid
8.0ms	35×	0	valid

Compiler

Compiled 1416 to 901 computations (36.4% saved)

Precisions

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

ival-sub: 42.0ms (32% of total)

ival-mult: 26.0ms (19.8% of total)

ival-sin: 21.0ms (16% of total)

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

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

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

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

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

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

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

const: 1.0ms (0.8% of total)

bsearch185.0ms (0.4%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
57.0ms	1.2625418209906513e-6	4.706439439378112e-6
97.0ms	-12.595483886311637	-0.21724533818816466

Results

139.0ms	160×	1	valid
6.0ms	32×	0	valid

Compiler

Compiled 1446 to 921 computations (36.3% saved)

Precisions

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

ival-mult: 45.0ms (34.9% of total)

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

ival-sin: 20.0ms (15.5% of total)

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

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

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

backward-pass: 5.0ms (3.9% of total)

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

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

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

const: 1.0ms (0.8% of total)

bsearch141.0ms (0.3%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
65.0ms	1.2625418209906513e-6	4.706439439378112e-6
67.0ms	-12.595483886311637	-0.21724533818816466

Results

115.0ms	153×	1	valid
8.0ms	39×	0	valid

Compiler

Compiled 1518 to 969 computations (36.2% saved)

Precisions

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

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

ival-sin: 21.0ms (19.7% of total)

ival-cos: 16.0ms (15% of total)

ival-mult: 13.0ms (12.2% of total)

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

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

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

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

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

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

const: 1.0ms (0.9% of total)

simplify108.0ms (0.2%)

Algorithm

1×	egg-herbie

Rules

322×	`*-commutative_binary64`
274×	`+-commutative_binary64`
174×	`sub-neg_binary64`
142×	`neg-sub0_binary64`
142×	`neg-mul-1_binary64`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	350	2143
1	593	2143
2	712	2143
3	832	2142
4	913	2142
5	966	2142
6	1020	2142
7	1091	2142
8	1153	2142
9	1196	2142
10	1210	2142
11	1211	2142

Stop Event

1×

saturated

Calls

Call 1

Inputs
(.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(if (<=.f64 lambda2 #s(literal -175000000 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda2 #s(literal 390000000000000004194304 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda2 #s(literal -8116567392432203/73786976294838206464 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda2 #s(literal 390000000000000004194304 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda2 #s(literal -175000000 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) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (+.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))) (if (<=.f64 lambda2 #s(literal 390000000000000004194304 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.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) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (+.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 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (pow.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 (.f64 (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 R #s(literal 2 binary64)))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 2833419889721787/2361183241434822606848 binary64)) (.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 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.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 (-.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 1770887431076117/1180591620717411303424 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.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 (-.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 2597301565578305/4722366482869645213696 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 8160249282398747/151115727451828646838272 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 2833419889721787/1180591620717411303424 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 5312662293228351/1180591620717411303424 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 5902958103587057/2361183241434822606848 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))) #s(literal 2 binary64))
(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))) #s(literal 2 binary64))

Outputs
(.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.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 #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 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #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 -175000000 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda2 #s(literal 390000000000000004194304 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda2 #s(literal -175000000 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #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 lambda2 #s(literal 390000000000000004194304 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #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 #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 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 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 lambda2 #s(literal -8116567392432203/73786976294838206464 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda2 #s(literal 390000000000000004194304 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda2 #s(literal -8116567392432203/73786976294838206464 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #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 lambda2 #s(literal 390000000000000004194304 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #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 #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 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 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 lambda2 #s(literal -175000000 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) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (+.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))) (if (<=.f64 lambda2 #s(literal 390000000000000004194304 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.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) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (+.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)))))
(if (<=.f64 lambda2 #s(literal -175000000 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (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) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (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))))))) (if (<=.f64 lambda2 #s(literal 390000000000000004194304 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda1))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #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 (-.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) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (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 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #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 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(.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 (.f64 (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 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 (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 2833419889721787/2361183241434822606848 binary64)) (.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 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.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 (-.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 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 (cos.f64 phi2) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (if (<=.f64 phi2 #s(literal 2833419889721787/2361183241434822606848 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 phi1))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 1770887431076117/1180591620717411303424 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.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 (-.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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 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 (cos.f64 phi2) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (if (<=.f64 phi2 #s(literal 1770887431076117/1180591620717411303424 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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (.f64 #s(literal 4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 2597301565578305/4722366482869645213696 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 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 (cos.f64 phi2) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (if (<=.f64 phi2 #s(literal 2597301565578305/4722366482869645213696 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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.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) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 8160249282398747/151115727451828646838272 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 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 (cos.f64 phi2) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (if (<=.f64 phi2 #s(literal 8160249282398747/151115727451828646838272 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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 2833419889721787/1180591620717411303424 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 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 (cos.f64 phi2) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (if (<=.f64 phi2 #s(literal 2833419889721787/1180591620717411303424 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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi2) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 5312662293228351/1180591620717411303424 binary64)) (.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 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 (cos.f64 phi2) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (if (<=.f64 phi2 #s(literal 5312662293228351/1180591620717411303424 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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.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 (cos.f64 phi2) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 5902958103587057/2361183241434822606848 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7926335344172073/36028797018963968 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 (cos.f64 phi2) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (if (<=.f64 phi2 #s(literal 5902958103587057/2361183241434822606848 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 (cos.f64 phi1) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #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 (cos.f64 phi2) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
(.f64 (.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 (cos.f64 phi1) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))
(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))))
(.f64 (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))))

soundness5.5s (11.2%)

Rules

7588×	`-lowering-.f32`
7588×	`-lowering-.f64`
6622×	`-lowering-.f32`
6622×	`-lowering-.f64`
6332×	`-lowering-.f32`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	725	25816
1	2521	25199
0	9238	25199
0	1998	63678
1	5889	62390
0	8098	62390
0	1967	67279
1	6744	66995
0	8089	66995
0	103	1018
1	659	762
2	6887	762
0	8415	762
0	112	1075
1	633	859
2	6414	859
0	8855	859
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	41	424
1	223	406
2	1936	396
0	11141	396
0	1615	57479
1	5547	55992
0	8239	55992
0	128	1112
1	727	957
2	6980	957
0	8665	957

Stop Event

1×	fuel
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit

Compiler

Compiled 5289 to 1887 computations (64.3% saved)

preprocess244.0ms (0.5%)

Remove: (negabs R)
Compiler: Compiled 7312 to 1666 computations (77.2% saved)

analyze1.5s (3%)

sample7.3s (14.9%)

preprocess242.0ms (0.5%)

explain694.0ms (1.4%)

eval1.0ms (0%)

prune2.0ms (0%)

simplify172.0ms (0.3%)

localize604.0ms (1.2%)

series165.0ms (0.3%)

rewrite558.0ms (1.1%)

simplify587.0ms (1.2%)

eval292.0ms (0.6%)

prune316.0ms (0.6%)

simplify259.0ms (0.5%)

localize1.7s (3.5%)

series443.0ms (0.9%)

rewrite399.0ms (0.8%)

simplify1.0s (2%)

eval876.0ms (1.8%)

prune1.0s (2.1%)

simplify289.0ms (0.6%)

localize1.9s (3.9%)

series246.0ms (0.5%)

rewrite268.0ms (0.5%)

simplify932.0ms (1.9%)

eval530.0ms (1.1%)

prune863.0ms (1.8%)

simplify249.0ms (0.5%)

localize1.7s (3.5%)

series460.0ms (0.9%)

rewrite372.0ms (0.8%)

simplify1.1s (2.2%)

eval686.0ms (1.4%)

prune1.7s (3.4%)

regimes2.2s (4.5%)

regimes1.9s (3.9%)

regimes651.0ms (1.3%)

regimes774.0ms (1.6%)

regimes1.6s (3.2%)

regimes1.2s (2.5%)

regimes533.0ms (1.1%)

regimes414.0ms (0.8%)

regimes294.0ms (0.6%)

regimes341.0ms (0.7%)

regimes94.0ms (0.2%)

regimes158.0ms (0.3%)

regimes96.0ms (0.2%)

regimes63.0ms (0.1%)

regimes93.0ms (0.2%)

regimes195.0ms (0.4%)

regimes185.0ms (0.4%)

regimes163.0ms (0.3%)

regimes125.0ms (0.3%)

regimes14.0ms (0%)

regimes13.0ms (0%)

bsearch275.0ms (0.6%)

bsearch290.0ms (0.6%)

bsearch220.0ms (0.4%)

bsearch181.0ms (0.4%)

bsearch148.0ms (0.3%)

bsearch595.0ms (1.2%)

bsearch623.0ms (1.3%)

bsearch173.0ms (0.4%)

bsearch185.0ms (0.4%)

bsearch141.0ms (0.3%)

simplify108.0ms (0.2%)

soundness5.5s (11.2%)

preprocess244.0ms (0.5%)

end0.0ms (0%)

Profiling